home *** CD-ROM | disk | FTP | other *** search
/ Your Web Site Creator / Your Web Site Creator.iso / WebSite / data1.cab / Program_Executable_Files / Aw.dat < prev    next >
INI File  |  1999-01-13  |  149KB  |  4,378 lines
  1. [Start] ; Beginning of script.
  2. MODE APPLET
  3.  
  4. STARTWIZARD
  5.  
  6. SET codeBase = ""
  7. SET YY = "Yes"
  8. SET NN = "No"
  9. SET EntWid = "Enter the width (in pixels) of the applet."
  10. SET EntHght = "Enter the height (in pixels) of the applet."
  11. SET YouDec = "You can decide how "
  12. SET HwTall = "how tall the applet display is going to appear.  "
  13. SET PrsOK = "\n\nPress the Finish button to complete the process for adding the Wave Java applet. Then, press the OK button to add the applet to your topic page."
  14. SET YouComp = "You have completed the setup for the"
  15. SET Unsure = "".\n\nIf you are unsure about any of your answers, you can press the Previous button, repeatedly if needed, to go back through your answers to review them.\n\n"You can also change any of these values "
  16. SET Unsure2 = " later if you change your mind.  Or, later you can simply delete this applet and add a different one."
  17.  
  18. SET classesDir = ""
  19. IF HTMLMediaFlat <> YY
  20.   SET codeBase = "classes"
  21.   SET classesDir = "" ; target is determined at compile time (was "classes/")
  22. ENDIF
  23.  
  24.  
  25. TITLE Java Applet Expert
  26.  
  27. ;    Variables to hold the class file info.
  28. SET QC="2.class"
  29. SET IncrTxt="=Number of pixels to move each time"
  30. SET ItrvlTx="=Time between movements in Ms"
  31. SET BkImgTx="=Filename of picture for background"
  32. GOSUB SetAnalogClockVars
  33. GOSUB SetAnimateVars
  34. GOSUB SetBannerVars
  35. GOSUB SetBitmapButtonVars
  36. GOSUB SetBlinkVars
  37. GOSUB SetCalendarVars
  38. GOSUB SetDigitalClockVars
  39. GOSUB SetFlasherVars
  40. GOSUB SetHRVars
  41. GOSUB SetKRVars
  42. GOSUB SetMarqueeVars
  43. GOSUB SetScrollTextVars
  44. GOSUB SetSPVars
  45. GOSUB SetWaveVars
  46. GOSUB SetUtilVars
  47. GOSUB SetBorderVars
  48.  
  49. GOSUB SetCalculatorVars
  50. GOSUB SetFadeVars
  51. GOSUB SetFireworksVars
  52. GOSUB SetHelloVers
  53. GOSUB SetPulsingShapesVars
  54. GOSUB SetTextEffectsVars
  55. GOSUB SetTextManiacVars
  56. GOSUB SetTextPulseVars
  57.  
  58.  
  59. ;    Misc variables.
  60.  
  61. GOSUB AskForApplet
  62.  
  63.  
  64.  
  65.  
  66. ;  Add border size to width and height of applet
  67. [AddbrdSizeToApplet]
  68. IF wantBorder = YY
  69.   SET height = add( height brdSize )
  70.   SET height = add( height brdSize )
  71.   SET width = add( width brdSize )
  72.   SET width = add( width brdSize )
  73. ENDIF
  74.  
  75. ;   Ask what border he wants
  76. [AskForBorder]
  77. SET wantBorder = NN
  78. SET borderType = "raisedBorder"            ;3D Gray frame in a frame
  79. SET hatchBorder = "0"
  80. SET useLightImages = NN
  81. SET onLightImage = ""
  82. SET offLightImage = ""
  83. SET borderColor = ""
  84. SET borderBKColor = "0,0,0"
  85.  
  86. ;Ask if the user wants a border
  87. BACKSTOP
  88. PAGE
  89. WIZPIC wizpics\javawiz.gif
  90. TYPE RADIOBUTTONS
  91. NAME wantBorder
  92. DESCRIPTION You can display a border around your applet. There are several different border styles for you to choose from. Would you like to display a border around the applet?  If you decide YES, you can view the border types on the next screen. If you change your mind, simply return to this screen and select NO.
  93. ARGUMENT "&Yes, display a border around the applet"@Yes
  94. ARGUMENT "N&o, do not display a border"@No
  95.  
  96. IF wantBorder = YY
  97.   BACKSTOP
  98.   PAGE
  99.   WIZPIC wizpics\javawiz.gif
  100.   TYPE LIST
  101.   NAME borderType
  102.   DESCRIPTION Choose from one of the border types listed below to display around your applet.  Click on any name in the list to display a sample of the border (added to the analog clock) to get an idea of what it will look like.
  103.   PROMPT &Border type:
  104.   ARGUMENT "Hatch pattern in gray frame"@hatchBorder@"classes\javab2.gif"
  105.   ARGUMENT "Hot Dog Stand"@hdsBorder@"classes\javab9.gif"
  106.   ARGUMENT "Lowered 3D look"@loweredLevelBorder@"classes\javab3.gif"
  107.   ARGUMENT "Theater Marquee (rotating lights)"@marqueeBorder@"classes\javab1.gif"
  108.   ARGUMENT "Pulsing color in a gray frame"@pulsingBorder@"classes\javab4.gif"
  109.   ARGUMENT "Random colors in a gray frame"@rainbowBorder@"classes\javab5.gif"
  110.   ARGUMENT "3D gray frame inside a frame"@raisedBorder@"classes\javab6.gif"
  111.   ARGUMENT "Raised inside a gray frame"@raisedLevelBorder@"classes\javab7.gif"
  112.   ARGUMENT "A simple border"@simpleBorder@"classes\javab8.gif"
  113.  
  114.   IF borderType = "marqueeBorder"
  115.     SET brdSize = 8
  116.   ELSE
  117.     ; Hot dog stand uses 3 bands so give border divisible by 3
  118.     IF borderType = "hdsBorder"
  119.       SET brdSize = 9
  120.     ELSE
  121.       SET brdSize = 6
  122.     ENDIF
  123.   ENDIF
  124.  
  125.   IF borderType = "hatchBorder"
  126.      SET borderBkColor = "192,192,192"
  127.   ENDIF
  128.  
  129.   BACKSTOP
  130.   PAGE
  131.   WIZPIC wizpics\javawiz.gif
  132.   TYPE EDIT
  133.   NAME brdSize
  134.   PROMPT &Border size:
  135.   DESCRIPTION Please enter the width of the border in pixels.  Remember that the size you specify will be used on all four sides of the applet.
  136.  
  137.   IF borderType = "hatchBorder"             ;hatch pattern
  138.     BACKSTOP
  139.     PAGE
  140.     WIZPIC wizpics\wizchoz3.gif
  141.     TYPE SIMPLECOLOR
  142.     DESCRIPTION Select a background color for the border.  Click on one of the colored squares below to choose the color you desire.
  143.     NAME borderBkColor
  144.  
  145.     BACKSTOP
  146.     PAGE
  147.     WIZPIC wizpics\javawiz.gif
  148.     TYPE GIFFILE
  149.     DESCRIPTION Select an image to display in the border. This file must be either a GIF file or a JPG file.  If you do not wish to use an image, leave this blank.
  150.     NAME borderBkImage
  151.     SETTYPE borderBkImage = normal
  152.  
  153.     BACKSTOP
  154.     PAGE
  155.     WIZPIC wizpics\wizchoz3.gif
  156.     TYPE RADIOBUTTONS
  157.     NAME hatchBorder
  158.     DESCRIPTION Indicate whether you want a border around the hatch design.
  159.     ARGUMENT "&Border around design"@1
  160.     ARGUMENT "N&o border"@0
  161.  
  162.   ENDIF
  163.  
  164.   IF borderType = "hdsBorder"            ;hot dog stand
  165.     BACKSTOP
  166.     PAGE
  167.     WIZPIC wizpics\javawiz.gif
  168.     TYPE SIMPLECOLOR
  169.     DEFAULT 255,0,0
  170.     DESCRIPTION Select a color for the lit band.  Click on one of the colored squares below to choose the color you desire.
  171.     NAME activeColor
  172.  
  173.     BACKSTOP
  174.     PAGE
  175.     WIZPIC wizpics\javawiz.gif
  176.     TYPE SIMPLECOLOR
  177.     DEFAULT 255,255,0
  178.     DESCRIPTION Select a color for the unlit band.  Click on one of the colored squares below to choose the color you desire.
  179.     NAME inactiveColor
  180.   ENDIF
  181.  
  182.   IF borderType = "marqueeBorder"
  183.     BACKSTOP
  184.     PAGE
  185.     WIZPIC wizpics\javawiz.gif
  186.     TYPE SIMPLECOLOR
  187.     DESCRIPTION Select a background color for the border.  Click on one of the colored squares below to choose the color you desire.
  188.     NAME borderBkColor
  189.  
  190.     BACKSTOP
  191.     PAGE
  192.     WIZPIC wizpics\javawiz.gif
  193.     TYPE GIFFILE
  194.     DESCRIPTION Select an image to display in the border. This file must be either a GIF file or a JPG file.  If you do not wish to use an image, leave this blank.
  195.     NAME borderBkImage
  196.     SETTYPE borderBkImage = normal
  197.  
  198.     BACKSTOP
  199.     PAGE
  200.     WIZPIC wizpics\wizchoz3.gif
  201.     TYPE RADIOBUTTONS
  202.     DESCRIPTION Indicate whether you want to use an image for the lit lights.
  203.     NAME useLightImages
  204.     ARGUMENT "&Use a pair of small images for the lights"@Yes
  205.     ARGUMENT "&Draw colored circles for the lights"@No
  206.  
  207.     IF useLightImages = YY
  208.       SET onLightImage = "classes\lite_yel.gif"
  209.       SET offLightImage = "classes\lite_off.gif"
  210.  
  211.       BACKSTOP
  212.       PAGE
  213.       WIZPIC wizpics\javawiz.gif
  214.       TYPE GIFFILE
  215.       DESCRIPTION Select a picture file that contains an image to represent the lit lights. The default is a small yellow light. This file must be either a GIF file or a JPG file.
  216.       NAME onLightImage
  217.       SETTYPE onLightImage = normal
  218.  
  219.       BACKSTOP
  220.       PAGE
  221.       WIZPIC wizpics\javawiz.gif
  222.       TYPE GIFFILE
  223.       DESCRIPTION Select a picture file that contains an image to represent the unlit lights. The default is a small white light. This file must be either a GIF file or a JPG file.
  224.       NAME offLightImage
  225.       SETTYPE offLightImage = normal
  226.     ELSE
  227.       BACKSTOP
  228.       PAGE
  229.       WIZPIC wizpics\wizchoz3.gif
  230.       TYPE SIMPLECOLOR
  231.       DEFAULT 255,255,0
  232.       DESCRIPTION Select a color to use when drawing the circles to represent the lit lights in the marquee.\n\nClick on one of the colored squares below to choose the color you desire.
  233.       NAME activeColor
  234.  
  235.       BACKSTOP
  236.       PAGE
  237.       WIZPIC wizpics\wizchoz3.gif
  238.       DEFAULT 128,128,128
  239.       TYPE SIMPLECOLOR
  240.       DESCRIPTION Select a color to use when drawing the circles to represent the unlit lights in the marquee.\n\nClick on one of the colored squares below to choose the color you desire.
  241.       NAME inactiveColor
  242.     ENDIF   ; if useLightImages is yes
  243.   ENDIF
  244.  
  245.   IF borderType = "pulsingBorder"             ;pulsing color
  246.     BACKSTOP
  247.     PAGE
  248.     WIZPIC wizpics\javawiz.gif
  249.     TYPE SIMPLECOLOR
  250.     DESCRIPTION This border style is drawn with the color you choose and then pulses to ever ligther shades of that color until it reaches white. Then it pulses back to the color you select.  Select a color to begin the 'pulse'.\n\nClick on one of the colored squares below to choose the color you desire.
  251.     NAME borderColor
  252.   ENDIF
  253.  
  254.   IF borderType = "simpleBorder"
  255.     BACKSTOP
  256.     PAGE
  257.     WIZPIC wizpics\javawiz.gif
  258.     TYPE SIMPLECOLOR
  259.     DESCRIPTION Select a background color for the border.  Click on one of the colored squares below to choose the color you desire.
  260.     NAME borderBkColor
  261.  
  262.     BACKSTOP
  263.     PAGE
  264.     WIZPIC wizpics\javawiz.gif
  265.     TYPE GIFFILE
  266.     DESCRIPTION Select an image to display in the border. This file must be either a GIF file or a JPG file.  If you do not wish to use an image, leave this blank.
  267.     NAME borderBkImage
  268.     SETTYPE borderBkImage = normal
  269.   ENDIF
  270. ENDIF ; want border =yes
  271.  
  272.  
  273.  
  274. ;for border selected, set the code and files.
  275. [SetCode]
  276. IF wantBorder = YY
  277.     SET newParam = borderType,"Thickness0=",brdSize
  278.     GOSUB AddParameter
  279.  
  280.     SET newFile = borderPanel
  281.     GOSUB AddFile
  282.  
  283.     IF borderType = "hatchBorder"
  284.         SET name = className,"HBP"
  285.         SET code = className,"HBP",QC
  286.         SET newFile = staticBorderPanel
  287.         GOSUB AddFile
  288.         SET newFile = hatchBorderPanel
  289.         GOSUB AddFile
  290.         SET newParam = borderType,"BkColor0=",borderBkColor
  291.         GOSUB AddParameter
  292.         IF borderBkImage <> ""
  293.             SET newParam = borderType,"BkImage0=",filenameof(borderBkImage),BkImgTx
  294.             GOSUB AddParameter
  295.             SET newFile = borderBkImage,"@",classesDir,filenameof( borderBkImage )
  296.             GOSUB AddFile
  297.         ENDIF
  298.         SET newParam = borderType,"ShowBorder0=",hatchBorder
  299.         GOSUB AddParameter
  300.     ENDIF
  301.     IF borderType = "hdsBorder"
  302.         SET name = className,"HDS"
  303.         SET code = className,"HDS",QC
  304.         SET newFile = dynamicBorderPanel
  305.         GOSUB AddFile
  306.         SET newFile = hdsBorderPanel
  307.         GOSUB AddFile
  308.         SET newParam = borderType,"ActiveColor0=",activeColor
  309.         GOSUB AddParameter
  310.         SET newParam = borderType,"InactiveColor0=",inactiveColor
  311.         GOSUB AddParameter
  312.     ENDIF
  313.     IF borderType = "loweredLevelBorder"
  314.         SET name = className,"LL"
  315.         SET code = className,"LL",QC
  316.         SET newFile = staticBorderPanel
  317.         GOSUB AddFile
  318.         SET newFile = loweredLevelBorderPanel
  319.         GOSUB AddFile
  320.     ENDIF
  321.     IF borderType = "marqueeBorder"
  322.         SET name = className,"Marquee"
  323.         SET code = className,"Marquee",QC
  324.         SET newFile = dynamicBorderPanel
  325.         GOSUB AddFile
  326.         SET newFile = marqueeBorderPanel
  327.         GOSUB AddFile
  328.         SET newParam = borderType,"BkColor0=",borderBkColor
  329.         GOSUB AddParameter
  330.         IF borderBkImage <> ""
  331.             SET newParam = borderType,"BkImage0=",filenameof(borderBkImage),BkImgTx
  332.             GOSUB AddParameter
  333.             SET newFile = borderBkImage,"@",classesDir,filenameof( borderBkImage )
  334.             GOSUB AddFile
  335.         ENDIF
  336.         IF useLightImages = YY
  337.             SET newFile = onLightImage,"@",classesDir,filenameof( onLightImage )
  338.             GOSUB AddFile
  339.             SET newParam = borderType,"OnLightImage0=",filenameof( onLightImage )
  340.             GOSUB AddParameter
  341.             SET newFile = offLightImage,"@",classesDir,filenameof( offLightImage )
  342.             GOSUB AddFile
  343.             SET newParam = borderType,"OffLightImage0=",filenameof( offLightImage )
  344.             GOSUB AddParameter
  345.         ELSE
  346.             SET newParam = borderType,"LightColor0=",activeColor
  347.             GOSUB AddParameter
  348.             SET newParam = borderType,"OffColor0=",inactiveColor
  349.             GOSUB AddParameter
  350.         ENDIF
  351.     ENDIF
  352.     IF borderType = "pulsingBorder"
  353.         SET name = className,"Pulsing"
  354.         SET code = className,"Pulsing",QC
  355.         SET newFile = dynamicBorderPanel
  356.         GOSUB AddFile
  357.         SET newFile = pulsingBorderPanel
  358.         GOSUB AddFile
  359.         SET newParam = borderType,"Color0=",borderColor
  360.         GOSUB AddParameter
  361.     ENDIF
  362.     IF borderType = "rainbowBorder"
  363.         SET name = className,"Rainbow"
  364.         SET code = className,"Rainbow",QC
  365.         SET newFile = dynamicBorderPanel
  366.         GOSUB AddFile
  367.         SET newFile = rainbowBorderPanel
  368.         GOSUB AddFile
  369.     ENDIF
  370.     IF borderType = "raisedBorder"
  371.         SET name = className,"Raised"
  372.         SET code = className,"Raised",QC
  373.         SET newFile = staticBorderPanel
  374.         GOSUB AddFile
  375.         SET newFile = raisedBorderPanel
  376.         GOSUB AddFile
  377.     ENDIF
  378.     IF borderType = "raisedLevelBorder"
  379.         SET name = className,"RaisedLevel"
  380.         SET code = className,"RaisedLevel",QC
  381.         SET newFile = staticBorderPanel
  382.         GOSUB AddFile
  383.         SET newFile = raisedLevelBorderPanel
  384.         GOSUB AddFile
  385.     ENDIF
  386.     IF borderType = "simpleBorder"
  387.         SET name = className,"Simple"
  388.         SET code = className,"Simple",QC
  389.         SET newFile = staticBorderPanel
  390.         GOSUB AddFile
  391.         SET newFile = simpleBorderPanel
  392.         GOSUB AddFile
  393.         SET newParam = borderType,"BkColor0=",borderBkColor
  394.         GOSUB AddParameter
  395.         IF borderBkImage <> ""
  396.             SET newParam = borderType,"BkImage0=",filenameof(borderBkImage),BkImgTx
  397.             GOSUB AddParameter
  398.             SET newFile = borderBkImage,"@",classesDir,filenameof( borderBkImage )
  399.             GOSUB AddFile
  400.         ENDIF
  401.     ENDIF
  402.  
  403.     IF applet = "AClock"
  404.         IF borderType = "hatchBorder"
  405.             SET newFile = analogClockHBP
  406.             GOSUB AddFile
  407.         ENDIF
  408.         IF borderType = "hdsBorder"
  409.             SET newFile = analogClockHDS
  410.             GOSUB AddFile
  411.         ENDIF
  412.         IF borderType = "loweredLevelBorder"
  413.             SET newFile = analogClockLL
  414.             GOSUB AddFile
  415.         ENDIF
  416.         IF borderType = "marqueeBorder"
  417.             SET newFile = analogClockMarquee
  418.             GOSUB AddFile
  419.         ENDIF
  420.         IF borderType = "pulsingBorder"
  421.             SET newFile = analogClockPulsing
  422.             GOSUB AddFile
  423.         ENDIF
  424.         IF borderType = "rainbowBorder"
  425.             SET newFile = analogClockRainbow
  426.             GOSUB AddFile
  427.         ENDIF
  428.         IF borderType = "raisedBorder"
  429.             SET newFile = analogClockRaised
  430.             GOSUB AddFile
  431.         ENDIF
  432.         IF borderType = "raisedLevelBorder"
  433.             SET newFile = analogClockRaisedLevel
  434.             GOSUB AddFile
  435.         ENDIF
  436.         IF borderType = "simpleBorder"
  437.             SET newFile = analogClockSimple
  438.             GOSUB AddFile
  439.         ENDIF
  440.     ENDIF
  441.     IF applet = "Animate"
  442.         IF borderType = "hatchBorder"
  443.             SET newFile = animateHBP
  444.             GOSUB AddFile
  445.         ENDIF
  446.         IF borderType = "hdsBorder"
  447.             SET newFile = animateHDS
  448.             GOSUB AddFile
  449.         ENDIF
  450.         IF borderType = "loweredLevelBorder"
  451.             SET newFile = animateLL
  452.             GOSUB AddFile
  453.         ENDIF
  454.         IF borderType = "marqueeBorder"
  455.             SET newFile = animateMarquee
  456.             GOSUB AddFile
  457.         ENDIF
  458.         IF borderType = "pulsingBorder"
  459.             SET newFile = animatePulsing
  460.             GOSUB AddFile
  461.         ENDIF
  462.         IF borderType = "rainbowBorder"
  463.             SET newFile = animateRainbow
  464.             GOSUB AddFile
  465.         ENDIF
  466.         IF borderType = "raisedBorder"
  467.             SET newFile = animateRaised
  468.             GOSUB AddFile
  469.         ENDIF
  470.         IF borderType = "raisedLevelBorder"
  471.             SET newFile = animateRaisedLevel
  472.             GOSUB AddFile
  473.         ENDIF
  474.         IF borderType = "simpleBorder"
  475.             SET newFile = animateSimple
  476.             GOSUB AddFile
  477.         ENDIF
  478.     ENDIF
  479.     IF applet = "Banner"
  480.         IF borderType = "hatchBorder"
  481.             SET newFile = bannerHBP
  482.             GOSUB AddFile
  483.         ENDIF
  484.         IF borderType = "hdsBorder"
  485.             SET newFile = bannerHDS
  486.             GOSUB AddFile
  487.         ENDIF
  488.         IF borderType = "loweredLevelBorder"
  489.             SET newFile = bannerLL
  490.             GOSUB AddFile
  491.         ENDIF
  492.         IF borderType = "marqueeBorder"
  493.             SET newFile = bannerMarquee
  494.             GOSUB AddFile
  495.         ENDIF
  496.         IF borderType = "pulsingBorder"
  497.             SET newFile = bannerPulsing
  498.             GOSUB AddFile
  499.         ENDIF
  500.         IF borderType = "rainbowBorder"
  501.             SET newFile = bannerRainbow
  502.             GOSUB AddFile
  503.         ENDIF
  504.         IF borderType = "raisedBorder"
  505.             SET newFile = bannerRaised
  506.             GOSUB AddFile
  507.         ENDIF
  508.         IF borderType = "raisedLevelBorder"
  509.             SET newFile = bannerRaisedLevel
  510.             GOSUB AddFile
  511.         ENDIF
  512.         IF borderType = "simpleBorder"
  513.             SET newFile = bannerSimple
  514.             GOSUB AddFile
  515.         ENDIF
  516.     ENDIF
  517.     IF applet = "bitmapButton"
  518.         IF borderType = "hatchBorder"
  519.             SET newFile = bitmapButtonHBP
  520.             GOSUB AddFile
  521.         ENDIF
  522.         IF borderType = "hdsBorder"
  523.             SET newFile = bitmapButtonHDS
  524.             GOSUB AddFile
  525.         ENDIF
  526.         IF borderType = "loweredLevelBorder"
  527.             SET newFile = bitmapButtonLL
  528.             GOSUB AddFile
  529.         ENDIF
  530.         IF borderType = "marqueeBorder"
  531.             SET newFile = bitmapButtonMarquee
  532.             GOSUB AddFile
  533.         ENDIF
  534.         IF borderType = "pulsingBorder"
  535.             SET newFile = bitmapButtonPulsing
  536.             GOSUB AddFile
  537.         ENDIF
  538.         IF borderType = "rainbowBorder"
  539.             SET newFile = bitmapButtonRainbow
  540.             GOSUB AddFile
  541.         ENDIF
  542.         IF borderType = "raisedBorder"
  543.             SET newFile = bitmapButtonRaised
  544.             GOSUB AddFile
  545.         ENDIF
  546.         IF borderType = "raisedLevelBorder"
  547.             SET newFile = bitmapButtonRaisedLevel
  548.             GOSUB AddFile
  549.         ENDIF
  550.         IF borderType = "simpleBorder"
  551.             SET newFile = bitmapButtonSimple
  552.             GOSUB AddFile
  553.         ENDIF
  554.     ENDIF
  555.     IF applet = "Blink"
  556.         IF borderType = "hatchBorder"
  557.             SET newFile = blinkHBP
  558.             GOSUB AddFile
  559.         ENDIF
  560.         IF borderType = "hdsBorder"
  561.             SET newFile = blinkHDS
  562.             GOSUB AddFile
  563.         ENDIF
  564.         IF borderType = "loweredLevelBorder"
  565.             SET newFile = blinkLL
  566.             GOSUB AddFile
  567.         ENDIF
  568.         IF borderType = "marqueeBorder"
  569.             SET newFile = blinkMarquee
  570.             GOSUB AddFile
  571.         ENDIF
  572.         IF borderType = "pulsingBorder"
  573.             SET newFile = blinkPulsing
  574.             GOSUB AddFile
  575.         ENDIF
  576.         IF borderType = "rainbowBorder"
  577.             SET newFile = blinkRainbow
  578.             GOSUB AddFile
  579.         ENDIF
  580.         IF borderType = "raisedBorder"
  581.             SET newFile = blinkRaised
  582.             GOSUB AddFile
  583.         ENDIF
  584.         IF borderType = "raisedLevelBorder"
  585.             SET newFile = blinkRaisedLevel
  586.             GOSUB AddFile
  587.         ENDIF
  588.         IF borderType = "simpleBorder"
  589.             SET newFile = blinkSimple
  590.             GOSUB AddFile
  591.         ENDIF
  592.     ENDIF
  593.     IF applet = "Calendar"
  594.         IF borderType = "hatchBorder"
  595.             SET newFile = calendarHBP
  596.             GOSUB AddFile
  597.         ENDIF
  598.         IF borderType = "hdsBorder"
  599.             SET newFile = calendarHDS
  600.             GOSUB AddFile
  601.         ENDIF
  602.         IF borderType = "loweredLevelBorder"
  603.             SET newFile = calendarLL
  604.             GOSUB AddFile
  605.         ENDIF
  606.         IF borderType = "marqueeBorder"
  607.             SET newFile = calendarMarquee
  608.             GOSUB AddFile
  609.         ENDIF
  610.         IF borderType = "pulsingBorder"
  611.             SET newFile = calendarPulsing
  612.             GOSUB AddFile
  613.         ENDIF
  614.         IF borderType = "rainbowBorder"
  615.             SET newFile = calendarRainbow
  616.             GOSUB AddFile
  617.         ENDIF
  618.         IF borderType = "raisedBorder"
  619.             SET newFile = calendarRaised
  620.             GOSUB AddFile
  621.         ENDIF
  622.         IF borderType = "raisedLevelBorder"
  623.             SET newFile = calendarRaisedLevel
  624.             GOSUB AddFile
  625.         ENDIF
  626.         IF borderType = "simpleBorder"
  627.             SET newFile = calendarSimple
  628.             GOSUB AddFile
  629.         ENDIF
  630.     ENDIF
  631.     IF applet = "DClock"
  632.         IF borderType = "hatchBorder"
  633.             SET newFile = digitalClockHBP
  634.             GOSUB AddFile
  635.         ENDIF
  636.         IF borderType = "hdsBorder"
  637.             SET newFile = digitalClockHDS
  638.             GOSUB AddFile
  639.         ENDIF
  640.         IF borderType = "loweredLevelBorder"
  641.             SET newFile = digitalClockLL
  642.             GOSUB AddFile
  643.         ENDIF
  644.         IF borderType = "marqueeBorder"
  645.             SET newFile = digitalClockMarquee
  646.             GOSUB AddFile
  647.         ENDIF
  648.         IF borderType = "pulsingBorder"
  649.             SET newFile = digitalClockPulsing
  650.             GOSUB AddFile
  651.         ENDIF
  652.         IF borderType = "rainbowBorder"
  653.             SET newFile = digitalClockRainbow
  654.             GOSUB AddFile
  655.         ENDIF
  656.         IF borderType = "raisedBorder"
  657.             SET newFile = digitalClockRaised
  658.             GOSUB AddFile
  659.         ENDIF
  660.         IF borderType = "raisedLevelBorder"
  661.             SET newFile = digitalClockRaisedLevel
  662.             GOSUB AddFile
  663.         ENDIF
  664.         IF borderType = "simpleBorder"
  665.             SET newFile = digitalClockSimple
  666.             GOSUB AddFile
  667.         ENDIF
  668.     ENDIF
  669.     IF applet = "Flasher"
  670.         IF borderType = "hatchBorder"
  671.             SET newFile = flasherHBP
  672.             GOSUB AddFile
  673.         ENDIF
  674.         IF borderType = "hdsBorder"
  675.             SET newFile = flasherHDS
  676.             GOSUB AddFile
  677.         ENDIF
  678.         IF borderType = "loweredLevelBorder"
  679.             SET newFile = flasherLL
  680.             GOSUB AddFile
  681.         ENDIF
  682.         IF borderType = "marqueeBorder"
  683.             SET newFile = flasherMarquee
  684.             GOSUB AddFile
  685.         ENDIF
  686.         IF borderType = "pulsingBorder"
  687.             SET newFile = flasherPulsing
  688.             GOSUB AddFile
  689.         ENDIF
  690.         IF borderType = "rainbowBorder"
  691.             SET newFile = flasherRainbow
  692.             GOSUB AddFile
  693.         ENDIF
  694.         IF borderType = "raisedBorder"
  695.             SET newFile = flasherRaised
  696.             GOSUB AddFile
  697.         ENDIF
  698.         IF borderType = "raisedLevelBorder"
  699.             SET newFile = flasherRaisedLevel
  700.             GOSUB AddFile
  701.         ENDIF
  702.         IF borderType = "simpleBorder"
  703.             SET newFile = flasherSimple
  704.             GOSUB AddFile
  705.         ENDIF
  706.     ENDIF
  707.     IF applet = "HR"
  708.         IF borderType = "hatchBorder"
  709.             SET newFile = hrHBP
  710.             GOSUB AddFile
  711.         ENDIF
  712.         IF borderType = "hdsBorder"
  713.             SET newFile = hrHDS
  714.             GOSUB AddFile
  715.         ENDIF
  716.         IF borderType = "loweredLevelBorder"
  717.             SET newFile = hrLL
  718.             GOSUB AddFile
  719.         ENDIF
  720.         IF borderType = "marqueeBorder"
  721.             SET newFile = hrMarquee
  722.             GOSUB AddFile
  723.         ENDIF
  724.         IF borderType = "pulsingBorder"
  725.             SET newFile = hrPulsing
  726.             GOSUB AddFile
  727.         ENDIF
  728.         IF borderType = "rainbowBorder"
  729.             SET newFile = hrRainbow
  730.             GOSUB AddFile
  731.         ENDIF
  732.         IF borderType = "raisedBorder"
  733.             SET newFile = hrRaised
  734.             GOSUB AddFile
  735.         ENDIF
  736.         IF borderType = "raisedLevelBorder"
  737.             SET newFile = hrRaisedLevel
  738.             GOSUB AddFile
  739.         ENDIF
  740.         IF borderType = "simpleBorder"
  741.             SET newFile = hrSimple
  742.             GOSUB AddFile
  743.         ENDIF
  744.     ENDIF
  745.     IF applet = "KR"
  746.         IF borderType = "hatchBorder"
  747.             SET newFile = krHBP
  748.             GOSUB AddFile
  749.         ENDIF
  750.         IF borderType = "hdsBorder"
  751.             SET newFile = krHDS
  752.             GOSUB AddFile
  753.         ENDIF
  754.         IF borderType = "loweredLevelBorder"
  755.             SET newFile = krLL
  756.             GOSUB AddFile
  757.         ENDIF
  758.         IF borderType = "marqueeBorder"
  759.             SET newFile = krMarquee
  760.             GOSUB AddFile
  761.         ENDIF
  762.         IF borderType = "pulsingBorder"
  763.             SET newFile = krPulsing
  764.             GOSUB AddFile
  765.         ENDIF
  766.         IF borderType = "rainbowBorder"
  767.             SET newFile = krRainbow
  768.             GOSUB AddFile
  769.         ENDIF
  770.         IF borderType = "raisedBorder"
  771.             SET newFile = krRaised
  772.             GOSUB AddFile
  773.         ENDIF
  774.         IF borderType = "raisedLevelBorder"
  775.             SET newFile = krRaisedLevel
  776.             GOSUB AddFile
  777.         ENDIF
  778.         IF borderType = "simpleBorder"
  779.             SET newFile = krSimple
  780.             GOSUB AddFile
  781.         ENDIF
  782.     ENDIF
  783.     IF applet = "Marquee"
  784.         IF borderType = "hatchBorder"
  785.             SET newFile = marqueeHBP
  786.             GOSUB AddFile
  787.         ENDIF
  788.         IF borderType = "hdsBorder"
  789.             SET newFile = marqueeHDS
  790.             GOSUB AddFile
  791.         ENDIF
  792.         IF borderType = "loweredLevelBorder"
  793.             SET newFile = marqueeLL
  794.             GOSUB AddFile
  795.         ENDIF
  796.         IF borderType = "marqueeBorder"
  797.             SET newFile = marqueeMarquee
  798.             GOSUB AddFile
  799.         ENDIF
  800.         IF borderType = "pulsingBorder"
  801.             SET newFile = marqueePulsing
  802.             GOSUB AddFile
  803.         ENDIF
  804.         IF borderType = "rainbowBorder"
  805.             SET newFile = marqueeRainbow
  806.             GOSUB AddFile
  807.         ENDIF
  808.         IF borderType = "raisedBorder"
  809.             SET newFile = marqueeRaised
  810.             GOSUB AddFile
  811.         ENDIF
  812.         IF borderType = "raisedLevelBorder"
  813.             SET newFile = marqueeRaisedLevel
  814.             GOSUB AddFile
  815.         ENDIF
  816.         IF borderType = "simpleBorder"
  817.             SET newFile = marqueeSimple
  818.             GOSUB AddFile
  819.         ENDIF
  820.     ENDIF
  821.     IF applet = "ScrollText"
  822.         IF borderType = "hatchBorder"
  823.             SET newFile = scrollTextHBP
  824.             GOSUB AddFile
  825.         ENDIF
  826.         IF borderType = "hdsBorder"
  827.             SET newFile = scrollTextHDS
  828.             GOSUB AddFile
  829.         ENDIF
  830.         IF borderType = "loweredLevelBorder"
  831.             SET newFile = scrollTextLL
  832.             GOSUB AddFile
  833.         ENDIF
  834.         IF borderType = "marqueeBorder"
  835.             SET newFile = scrollTextMarquee
  836.             GOSUB AddFile
  837.         ENDIF
  838.         IF borderType = "pulsingBorder"
  839.             SET newFile = scrollTextPulsing
  840.             GOSUB AddFile
  841.         ENDIF
  842.         IF borderType = "rainbowBorder"
  843.             SET newFile = scrollTextRainbow
  844.             GOSUB AddFile
  845.         ENDIF
  846.         IF borderType = "raisedBorder"
  847.             SET newFile = scrollTextRaised
  848.             GOSUB AddFile
  849.         ENDIF
  850.         IF borderType = "raisedLevelBorder"
  851.             SET newFile = scrollTextRaisedLevel
  852.             GOSUB AddFile
  853.         ENDIF
  854.         IF borderType = "simpleBorder"
  855.             SET newFile = scrollTextSimple
  856.             GOSUB AddFile
  857.         ENDIF
  858.     ENDIF
  859.     IF applet = "SoundPlayer"
  860.         IF borderType = "hatchBorder"
  861.             SET newFile = spHBP
  862.             GOSUB AddFile
  863.         ENDIF
  864.         IF borderType = "hdsBorder"
  865.             SET newFile = spHDS
  866.             GOSUB AddFile
  867.         ENDIF
  868.         IF borderType = "loweredLevelBorder"
  869.             SET newFile = spLL
  870.             GOSUB AddFile
  871.         ENDIF
  872.         IF borderType = "marqueeBorder"
  873.             SET newFile = spMarquee
  874.             GOSUB AddFile
  875.         ENDIF
  876.         IF borderType = "pulsingBorder"
  877.             SET newFile = spPulsing
  878.             GOSUB AddFile
  879.         ENDIF
  880.         IF borderType = "rainbowBorder"
  881.             SET newFile = spRainbow
  882.             GOSUB AddFile
  883.         ENDIF
  884.         IF borderType = "raisedBorder"
  885.             SET newFile = spRaised
  886.             GOSUB AddFile
  887.         ENDIF
  888.         IF borderType = "raisedLevelBorder"
  889.             SET newFile = spRaisedLevel
  890.             GOSUB AddFile
  891.         ENDIF
  892.         IF borderType = "simpleBorder"
  893.             SET newFile = spSimple
  894.             GOSUB AddFile
  895.         ENDIF
  896.     ENDIF
  897.     IF applet = "Wave"
  898.         IF borderType = "hatchBorder"
  899.             SET newFile = waveHBP
  900.             GOSUB AddFile
  901.         ENDIF
  902.         IF borderType = "hdsBorder"
  903.             SET newFile = waveHDS
  904.             GOSUB AddFile
  905.         ENDIF
  906.         IF borderType = "loweredLevelBorder"
  907.             SET newFile = waveLL
  908.             GOSUB AddFile
  909.         ENDIF
  910.         IF borderType = "marqueeBorder"
  911.             SET newFile = waveMarquee
  912.             GOSUB AddFile
  913.         ENDIF
  914.         IF borderType = "pulsingBorder"
  915.             SET newFile = wavePulsing
  916.             GOSUB AddFile
  917.         ENDIF
  918.         IF borderType = "rainbowBorder"
  919.             SET newFile = waveRainbow
  920.             GOSUB AddFile
  921.         ENDIF
  922.         IF borderType = "raisedBorder"
  923.             SET newFile = waveRaised
  924.             GOSUB AddFile
  925.         ENDIF
  926.         IF borderType = "raisedLevelBorder"
  927.             SET newFile = waveRaisedLevel
  928.             GOSUB AddFile
  929.         ENDIF
  930.         IF borderType = "simpleBorder"
  931.             SET newFile = waveSimple
  932.             GOSUB AddFile
  933.         ENDIF
  934.     ENDIF
  935. ; *** RAE Start
  936.     IF applet = "Calculator"
  937.         IF borderType = "hatchBorder"
  938.             SET newFile = calculatorHBP
  939.             GOSUB AddFile
  940.         ENDIF
  941.         IF borderType = "hdsBorder"
  942.             SET newFile = calculatorHDS
  943.             GOSUB AddFile
  944.         ENDIF
  945.         IF borderType = "loweredLevelBorder"
  946.             SET newFile = calculatorLL
  947.             GOSUB AddFile
  948.         ENDIF
  949.         IF borderType = "marqueeBorder"
  950.             SET newFile = calculatorMarquee
  951.             GOSUB AddFile
  952.         ENDIF
  953.         IF borderType = "pulsingBorder"
  954.             SET newFile = calculatorPulsing
  955.             GOSUB AddFile
  956.         ENDIF
  957.         IF borderType = "rainbowBorder"
  958.             SET newFile = calculatorRainbow
  959.             GOSUB AddFile
  960.         ENDIF
  961.         IF borderType = "raisedBorder"
  962.             SET newFile = calculatorRaised
  963.             GOSUB AddFile
  964.         ENDIF
  965.         IF borderType = "raisedLevelBorder"
  966.             SET newFile = calculatorRaisedLevel
  967.             GOSUB AddFile
  968.         ENDIF
  969.         IF borderType = "simpleBorder"
  970.             SET newFile = calculatorSimple
  971.             GOSUB AddFile
  972.         ENDIF
  973.     ENDIF
  974.     IF applet = "Fade"
  975.         IF borderType = "hatchBorder"
  976.             SET newFile = fadeHBP
  977.             GOSUB AddFile
  978.         ENDIF
  979.         IF borderType = "hdsBorder"
  980.             SET newFile = fadeHDS
  981.             GOSUB AddFile
  982.         ENDIF
  983.         IF borderType = "loweredLevelBorder"
  984.             SET newFile = fadeLL
  985.             GOSUB AddFile
  986.         ENDIF
  987.         IF borderType = "marqueeBorder"
  988.             SET newFile = fadeMarquee
  989.             GOSUB AddFile
  990.         ENDIF
  991.         IF borderType = "pulsingBorder"
  992.             SET newFile = fadePulsing
  993.             GOSUB AddFile
  994.         ENDIF
  995.         IF borderType = "rainbowBorder"
  996.             SET newFile = fadeRainbow
  997.             GOSUB AddFile
  998.         ENDIF
  999.         IF borderType = "raisedBorder"
  1000.             SET newFile = fadeRaised
  1001.             GOSUB AddFile
  1002.         ENDIF
  1003.         IF borderType = "raisedLevelBorder"
  1004.             SET newFile = fadeRaisedLevel
  1005.             GOSUB AddFile
  1006.         ENDIF
  1007.         IF borderType = "simpleBorder"
  1008.             SET newFile = fadeSimple
  1009.             GOSUB AddFile
  1010.         ENDIF
  1011.     ENDIF
  1012.     IF applet = "Fireworks"
  1013.         IF borderType = "hatchBorder"
  1014.             SET newFile = fireworksHBP
  1015.             GOSUB AddFile
  1016.         ENDIF
  1017.         IF borderType = "hdsBorder"
  1018.             SET newFile = fireworksHDS
  1019.             GOSUB AddFile
  1020.         ENDIF
  1021.         IF borderType = "loweredLevelBorder"
  1022.             SET newFile = fireworksLL
  1023.             GOSUB AddFile
  1024.         ENDIF
  1025.         IF borderType = "marqueeBorder"
  1026.             SET newFile = fireworksMarquee
  1027.             GOSUB AddFile
  1028.         ENDIF
  1029.         IF borderType = "pulsingBorder"
  1030.             SET newFile = fireworksPulsing
  1031.             GOSUB AddFile
  1032.         ENDIF
  1033.         IF borderType = "rainbowBorder"
  1034.             SET newFile = fireworksRainbow
  1035.             GOSUB AddFile
  1036.         ENDIF
  1037.         IF borderType = "raisedBorder"
  1038.             SET newFile = fireworksRaised
  1039.             GOSUB AddFile
  1040.         ENDIF
  1041.         IF borderType = "raisedLevelBorder"
  1042.             SET newFile = fireworksRaisedLevel
  1043.             GOSUB AddFile
  1044.         ENDIF
  1045.         IF borderType = "simpleBorder"
  1046.             SET newFile = fireworksSimple
  1047.             GOSUB AddFile
  1048.         ENDIF
  1049.     ENDIF
  1050.     IF applet = "Hello"
  1051.         IF borderType = "hatchBorder"
  1052.             SET newFile = helloHBP
  1053.             GOSUB AddFile
  1054.         ENDIF
  1055.         IF borderType = "hdsBorder"
  1056.             SET newFile = helloHDS
  1057.             GOSUB AddFile
  1058.         ENDIF
  1059.         IF borderType = "loweredLevelBorder"
  1060.             SET newFile = helloLL
  1061.             GOSUB AddFile
  1062.         ENDIF
  1063.         IF borderType = "marqueeBorder"
  1064.             SET newFile = helloMarquee
  1065.             GOSUB AddFile
  1066.         ENDIF
  1067.         IF borderType = "pulsingBorder"
  1068.             SET newFile = helloPulsing
  1069.             GOSUB AddFile
  1070.         ENDIF
  1071.         IF borderType = "rainbowBorder"
  1072.             SET newFile = helloRainbow
  1073.             GOSUB AddFile
  1074.         ENDIF
  1075.         IF borderType = "raisedBorder"
  1076.             SET newFile = helloRaised
  1077.             GOSUB AddFile
  1078.         ENDIF
  1079.         IF borderType = "raisedLevelBorder"
  1080.             SET newFile = helloRaisedLevel
  1081.             GOSUB AddFile
  1082.         ENDIF
  1083.         IF borderType = "simpleBorder"
  1084.             SET newFile = helloSimple
  1085.             GOSUB AddFile
  1086.         ENDIF
  1087.     ENDIF
  1088.     IF applet = "PulsingShapes"
  1089.         IF borderType = "hatchBorder"
  1090.             SET newFile = pulsingShapesHBP
  1091.             GOSUB AddFile
  1092.         ENDIF
  1093.         IF borderType = "hdsBorder"
  1094.             SET newFile = pulsingShapesHDS
  1095.             GOSUB AddFile
  1096.         ENDIF
  1097.         IF borderType = "loweredLevelBorder"
  1098.             SET newFile = pulsingShapesLL
  1099.             GOSUB AddFile
  1100.         ENDIF
  1101.         IF borderType = "marqueeBorder"
  1102.             SET newFile = pulsingShapesMarquee
  1103.             GOSUB AddFile
  1104.         ENDIF
  1105.         IF borderType = "pulsingBorder"
  1106.             SET newFile = pulsingShapesPulsing
  1107.             GOSUB AddFile
  1108.         ENDIF
  1109.         IF borderType = "rainbowBorder"
  1110.             SET newFile = pulsingShapesRainbow
  1111.             GOSUB AddFile
  1112.         ENDIF
  1113.         IF borderType = "raisedBorder"
  1114.             SET newFile = pulsingShapesRaised
  1115.             GOSUB AddFile
  1116.         ENDIF
  1117.         IF borderType = "raisedLevelBorder"
  1118.             SET newFile = pulsingShapesRaisedLevel
  1119.             GOSUB AddFile
  1120.         ENDIF
  1121.         IF borderType = "simpleBorder"
  1122.             SET newFile = pulsingShapesSimple
  1123.             GOSUB AddFile
  1124.         ENDIF
  1125.     ENDIF
  1126.     IF applet = "TextEffects"
  1127.         IF borderType = "hatchBorder"
  1128.             SET newFile = textEffectsHBP
  1129.             GOSUB AddFile
  1130.         ENDIF
  1131.         IF borderType = "hdsBorder"
  1132.             SET newFile = textEffectsHDS
  1133.             GOSUB AddFile
  1134.         ENDIF
  1135.         IF borderType = "loweredLevelBorder"
  1136.             SET newFile = textEffectsLL
  1137.             GOSUB AddFile
  1138.         ENDIF
  1139.         IF borderType = "marqueeBorder"
  1140.             SET newFile = textEffectsMarquee
  1141.             GOSUB AddFile
  1142.         ENDIF
  1143.         IF borderType = "pulsingBorder"
  1144.             SET newFile = textEffectsPulsing
  1145.             GOSUB AddFile
  1146.         ENDIF
  1147.         IF borderType = "rainbowBorder"
  1148.             SET newFile = textEffectsRainbow
  1149.             GOSUB AddFile
  1150.         ENDIF
  1151.         IF borderType = "raisedBorder"
  1152.             SET newFile = textEffectsRaised
  1153.             GOSUB AddFile
  1154.         ENDIF
  1155.         IF borderType = "raisedLevelBorder"
  1156.             SET newFile = textEffectsRaisedLevel
  1157.             GOSUB AddFile
  1158.         ENDIF
  1159.         IF borderType = "simpleBorder"
  1160.             SET newFile = textEffectsSimple
  1161.             GOSUB AddFile
  1162.         ENDIF
  1163.     ENDIF
  1164.     IF applet = "TextManiac"
  1165.         IF borderType = "hatchBorder"
  1166.             SET newFile = textManiacHBP
  1167.             GOSUB AddFile
  1168.         ENDIF
  1169.         IF borderType = "hdsBorder"
  1170.             SET newFile = textManiacHDS
  1171.             GOSUB AddFile
  1172.         ENDIF
  1173.         IF borderType = "loweredLevelBorder"
  1174.             SET newFile = textManiacLL
  1175.             GOSUB AddFile
  1176.         ENDIF
  1177.         IF borderType = "marqueeBorder"
  1178.             SET newFile = textManiacMarquee
  1179.             GOSUB AddFile
  1180.         ENDIF
  1181.         IF borderType = "pulsingBorder"
  1182.             SET newFile = textManiacPulsing
  1183.             GOSUB AddFile
  1184.         ENDIF
  1185.         IF borderType = "rainbowBorder"
  1186.             SET newFile = textManiacRainbow
  1187.             GOSUB AddFile
  1188.         ENDIF
  1189.         IF borderType = "raisedBorder"
  1190.             SET newFile = textManiacRaised
  1191.             GOSUB AddFile
  1192.         ENDIF
  1193.         IF borderType = "raisedLevelBorder"
  1194.             SET newFile = textManiacRaisedLevel
  1195.             GOSUB AddFile
  1196.         ENDIF
  1197.         IF borderType = "simpleBorder"
  1198.             SET newFile = textManiacSimple
  1199.             GOSUB AddFile
  1200.         ENDIF
  1201.     ENDIF
  1202.     IF applet = "TextPulse"
  1203.         IF borderType = "hatchBorder"
  1204.             SET newFile = textPulseHBP
  1205.             GOSUB AddFile
  1206.         ENDIF
  1207.         IF borderType = "hdsBorder"
  1208.             SET newFile = textPulseHDS
  1209.             GOSUB AddFile
  1210.         ENDIF
  1211.         IF borderType = "loweredLevelBorder"
  1212.             SET newFile = textPulseLL
  1213.             GOSUB AddFile
  1214.         ENDIF
  1215.         IF borderType = "marqueeBorder"
  1216.             SET newFile = textPulseMarquee
  1217.             GOSUB AddFile
  1218.         ENDIF
  1219.         IF borderType = "pulsingBorder"
  1220.             SET newFile = textPulsePulsing
  1221.             GOSUB AddFile
  1222.         ENDIF
  1223.         IF borderType = "rainbowBorder"
  1224.             SET newFile = textPulseRainbow
  1225.             GOSUB AddFile
  1226.         ENDIF
  1227.         IF borderType = "raisedBorder"
  1228.             SET newFile = textPulseRaised
  1229.             GOSUB AddFile
  1230.         ENDIF
  1231.         IF borderType = "raisedLevelBorder"
  1232.             SET newFile = textPulseRaisedLevel
  1233.             GOSUB AddFile
  1234.         ENDIF
  1235.         IF borderType = "simpleBorder"
  1236.             SET newFile = textPulseSimple
  1237.             GOSUB AddFile
  1238.         ENDIF
  1239.     ENDIF
  1240. ; *** RAE End
  1241. ELSE
  1242.     SET name = className,"NB"
  1243.     SET code = className,"NB",QC
  1244.     IF applet = "AClock"
  1245.         SET newFile = analogClockNB
  1246.         GOSUB AddFile
  1247.     ENDIF
  1248.     IF applet = "Animate"
  1249.         SET newFile = animateNB
  1250.         GOSUB AddFile
  1251.     ENDIF
  1252.     IF applet = "Banner"
  1253.         SET newFile = bannerNB
  1254.         GOSUB AddFile
  1255.     ENDIF
  1256.     IF applet = "bitmapButton"
  1257.         SET newFile = bitmapButtonNB
  1258.         GOSUB AddFile
  1259.     ENDIF
  1260.     IF applet = "Blink"
  1261.         SET newFile = blinkNB
  1262.         GOSUB AddFile
  1263.     ENDIF
  1264.     IF applet = "Calendar"
  1265.         SET newFile = calendarNB
  1266.         GOSUB AddFile
  1267.     ENDIF
  1268.     IF applet = "DClock"
  1269.         SET newFile = digitalClockNB
  1270.         GOSUB AddFile
  1271.     ENDIF
  1272.     IF applet = "Flasher"
  1273.         SET newFile = flasherNB
  1274.         GOSUB AddFile
  1275.     ENDIF
  1276.     IF applet = "HR"
  1277.         SET newFile = hrNB
  1278.         GOSUB AddFile
  1279.     ENDIF
  1280.     IF applet = "KR"
  1281.         SET newFile = krNB
  1282.         GOSUB AddFile
  1283.     ENDIF
  1284.     IF applet = "Marquee"
  1285.         SET newFile = marqueeNB
  1286.         GOSUB AddFile
  1287.     ENDIF
  1288.     IF applet = "ScrollText"
  1289.         SET newFile = scrollTextNB
  1290.         GOSUB AddFile
  1291.     ENDIF
  1292.     IF applet = "SoundPlayer"
  1293.         SET newFile = spNB
  1294.         GOSUB AddFile
  1295.     ENDIF
  1296.     IF applet = "Wave"
  1297.         SET newFile = waveNB
  1298.         GOSUB AddFile
  1299.     ENDIF
  1300. ; *** RAE Start
  1301.     IF applet = "Calculator"
  1302.         SET newFile = calculatorNB
  1303.         GOSUB AddFile
  1304.     ENDIF
  1305.     IF applet = "Fade"
  1306.         SET newFile = fadeNB
  1307.         GOSUB AddFile
  1308.     ENDIF
  1309.     IF applet = "Fireworks"
  1310.         SET newFile = fireworksNB
  1311.         GOSUB AddFile
  1312.     ENDIF
  1313.     IF applet = "Hello"
  1314.         SET newFile = helloNB
  1315.         GOSUB AddFile
  1316.     ENDIF
  1317.     IF applet = "PulsingShapes"
  1318.         SET newFile = pulsingShapesNB
  1319.         GOSUB AddFile
  1320.     ENDIF
  1321.     IF applet = "TextEffects"
  1322.         SET newFile = textEffectsNB
  1323.         GOSUB AddFile
  1324.     ENDIF
  1325.     IF applet = "TextManiac"
  1326.         SET newFile = textManiacNB
  1327.         GOSUB AddFile
  1328.     ENDIF
  1329.     IF applet = "TextPulse"
  1330.         SET newFile = textPulseNB
  1331.         GOSUB AddFile
  1332.     ENDIF
  1333. ; *** RAE End
  1334. ENDIF
  1335.  
  1336.  
  1337.  
  1338. [MakeFrameItems]
  1339. IF frameCount > 0
  1340.   SET v = itemof( image count )
  1341.   SET newFile = v,"@",classesDir,filenameof( v )
  1342.   GOSUB AddFile
  1343.   SET newParam = newParam,filenameof( v )
  1344.   SET frameCount = subtract( frameCount 1 )
  1345.   SET count = add( count 1 )
  1346.   IF frameCount > 0
  1347.     SET newParam = newParam,","
  1348.   ENDIF
  1349.   GOTO MakeFrameItems
  1350. ENDIF
  1351.  
  1352.  
  1353.  
  1354. [MakeImageItems]
  1355. IF imageCount > 0
  1356.   SET v = itemof( image count )
  1357.   SET newFile = v,"@",classesDir,filenameof( v )
  1358.   GOSUB AddFile
  1359.   SET newParam = newParam,filenameof( v )
  1360.   SET imageCount = subtract( imageCount 1 )
  1361.   SET count = add( count 1 )
  1362.   IF imageCount > 0
  1363.     SET newParam = newParam,","
  1364.   ENDIF
  1365.   GOTO MakeImageItems
  1366. ENDIF
  1367.  
  1368.  
  1369. [Wave]
  1370. GOSUB InitParamsAndFiles
  1371. SET className = "Wave"
  1372. SET classParam = "wave"
  1373. SET increment = "9"
  1374. SET speed = 25
  1375. SET width = 512
  1376. SET height = 24
  1377.  
  1378. GOSUB AskForBackgroundSettings
  1379.  
  1380. BACKSTOP
  1381. PAGE
  1382. TYPE EDIT
  1383. WIZPIC wizpics\javawiz.gif
  1384. DEFAULT 4
  1385. DESCRIPTION_RE YouDec,"how many waves at once are moving across the applet display area. The wider the applet, the more waves you might want to use.\n\nEnter how many waves should be shown in the applet."
  1386. NAME waveCount
  1387.  
  1388. BACKSTOP
  1389. PAGE
  1390. TYPE COLOR
  1391. WIZPIC wizpics\wizchoz3.gif
  1392. DEFAULT 51,51,102
  1393. DESCRIPTION You control the color of the line in the wave display.  You can press the `Choose' button to select a color from a palette display.  You can also enter an RGB value which defines the color to be used by setting the mix of Red, Green, and Blue.\n\nSelect the color to use for the wave. The square below shows the color you have chosen.
  1394. NAME waveColor
  1395.  
  1396. BACKSTOP
  1397. PAGE
  1398. TYPE EDIT
  1399. WIZPIC wizpics\javawiz.gif
  1400. DEFAULT speed
  1401. DESCRIPTION To simulate movement, waves are redisplayed at regular intervals in a new position.  You control the time between each display.  A longer interval causes the wave to move slowly, while a shorter interval causes the wave to move more rapidly. The interval is measured in milliseconds (one thousandths of a second).\n\nEnter the time in milliseconds between movements of the wave.
  1402. NAME speed
  1403.  
  1404. BACKSTOP
  1405. PAGE
  1406. TYPE EDIT
  1407. WIZPIC wizpics\javawiz.gif
  1408. DEFAULT increment
  1409. DESCRIPTION The Wave applet moves the wave by displaying it at regular intervals at different points along its path.  You previously set the interval between displays.  You control how far the waves advance with each movement.  As this number gets larger, the waves move faster, but may also appear a little jerky.  With smaller numbers, the waves move more slowly and smoothly.\nEnter the number of pixels to move the wave on each movement.
  1410. NAME increment
  1411.  
  1412. BACKSTOP
  1413. PAGE
  1414. WIZPIC wizpics\javawiz.gif
  1415. TYPE RADIOBUTTONS
  1416. NAME direction
  1417. DESCRIPTION You can control whether the wave moves from left to right or from right to left.\n\nWhich direction should the wave move?
  1418. ARGUMENT "&West ( right to left )"@West
  1419. ARGUMENT "&East ( left to right )"@East
  1420.  
  1421. BACKSTOP
  1422. PAGE
  1423. WIZPIC wizpics\javawiz.gif
  1424. TYPE EDIT
  1425. NAME width
  1426. DESCRIPTION_RE YouDec,"wide the wave display is going to be. This control sets the width of the applet, in pixels.  You can adjust this value later by changing the 'width' item on the first tab of the Applet dialog display.\n\n,"EntWid
  1427. PROMPT &Width:
  1428. DEFAULT width
  1429.  
  1430.  
  1431. BACKSTOP
  1432. PAGE
  1433. WIZPIC wizpics\javawiz.gif
  1434. TYPE EDIT
  1435. NAME height
  1436. DESCRIPTION_RE YouDec,"tall the wave display is going to be.  This control sets the height of the applet, in pixels.  You can adjust this value later by changing the `height' item on the first tab of the Applet dialog display.\n\n",EntHght
  1437. PROMPT &Height:
  1438. DEFAULT height
  1439.  
  1440. SET className = "Wave"
  1441. GOSUB AskForBorder
  1442.  
  1443. SET temp = " Wave applet"
  1444. BACKSTOP
  1445. PAGE
  1446. WIZPIC wizpics\javawiz.gif
  1447. TYPE DESCRIPTION
  1448. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the color of the wave)",Unsure2,PrsOK
  1449. FINISH
  1450.  
  1451.  
  1452. ;Setup the CODE and files for this applet.
  1453. GOSUB SetCode
  1454.  
  1455.  
  1456. SET newParam = "waveColor0=",waveColor
  1457. GOSUB AddParameter
  1458. SET newParam = "waveIncrement0=",increment,IncrTxt
  1459. GOSUB AddParameter
  1460. SET newParam = "waveCount0=",waveCount
  1461. GOSUB AddParameter
  1462. SET newParam = "waveSpeed0=",speed,ItrvlTx
  1463. GOSUB AddParameter
  1464. SET newParam = "waveMoveDirection0=",direction
  1465. GOSUB AddParameter
  1466.  
  1467. GOSUB AddbrdSizeToApplet
  1468. SET newFile = waveCanvas
  1469. GOSUB AddFile
  1470. GOSUB SetBackgroundParams
  1471.  
  1472. ;WAVE APPLET
  1473. BUILDAPPLET
  1474. CODE         code
  1475. CODEBASE     codeBase
  1476. NAME        name
  1477. FILES        files
  1478. WIDTH        width
  1479. HEIGHT        height
  1480. PARAMS        params
  1481. IMAGEALIAS  "classes\wave.gif"
  1482.  
  1483.  
  1484.  
  1485. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  1486. ;   AskForApplet subroutine. This routine prompts for what applet
  1487. ;   to insert and calls the appropriate subroutine.
  1488. [AskForApplet]
  1489. BACKSTOP
  1490. PAGE
  1491. WIZPIC wizpics\javawiz.gif
  1492. TYPE LIST
  1493. NAME applet
  1494. DESCRIPTION The Applet Expert guides you through the process of choosing a Java applet and setting the options which will control it. To begin, choose one of the pre-built Java applets from the list below.  When you press the Next button, detailed information about the applet you have chosen is displayed.
  1495. PROMPT Choose an &Applet to add:
  1496. ARGUMENT "Analog clock"@AClock@"classes\clock.gif"
  1497. ARGUMENT "Animation"@Animate@"classes\animate.gif"
  1498. ARGUMENT "Banner"@Banner@"classes\banner.gif"
  1499. ARGUMENT "Push Button Link"@bitmapButton@"classes\bmbutton.gif"
  1500. ARGUMENT "Blinker - Blink text or picture"@Blink@"classes\blinker.gif"
  1501. ARGUMENT "Calendar"@Calendar@"classes\calendar.gif"
  1502. ARGUMENT "Digital clock"@DClock@"classes\dclock.gif"
  1503. ARGUMENT "Flasher"@Flasher@"classes\flasher.gif"
  1504. ARGUMENT "Horizontal Rule"@HR@"classes\hrule.gif"
  1505. ARGUMENT "Dancing lights"@KR@"classes\dancing.gif"
  1506. ARGUMENT "Marquee"@Marquee@"classes\marquee.gif"
  1507. ARGUMENT "Scroll Text"@ScrollText@"classes\scroll.gif"
  1508. ARGUMENT "Sound player"@SoundPlayer@"classes\sp.gif"
  1509. ARGUMENT "Wave"@Wave@"classes\wave.gif"
  1510. ARGUMENT "Calculator"@Calculator@"classes\calc_app.gif"
  1511. ARGUMENT "Fade an image in and out"@Fade@"classes\fade_img.gif"
  1512. ARGUMENT "Fireworks"@Fireworks@"wizpics\nlstyle5.gif"
  1513. ARGUMENT "Network greeting"@Hello@"classes\hello.gif"
  1514. ARGUMENT "Pulsing Shapes"@PulsingShapes@"classes\pulshape.gif"
  1515. ARGUMENT "Text Effects"@TextEffects@"classes\txt_eff.gif"
  1516. ARGUMENT "Text Pulse"@TextPulse@"classes\pulstxt.gif"
  1517. ;ARGUMENT "Text Maniac"@TextManiac ;removed temporarily for HOTN
  1518.  
  1519. IF applet = "AClock"
  1520.   BACKSTOP
  1521.   PAGE
  1522.   WIZPIC wizpics\javawiz.gif
  1523.   TYPE DESCRIPTION
  1524.   NAME applet
  1525.   DESCRIPTION ANALOG CLOCK\n\nThis applet displays a clock face with the hands showing the current time on the surfer's system.\n\nWebwizz provides you with an assortment of choices for the clock face.  In addition to choosing the clock face, you may choose the color of the hands, and whether to display a second hand.\n\nPress the Next button to continue adding the Analog Clock, or press the Previous button to pick a different applet.
  1526.   GOSUB AnalogClock
  1527. ENDIF
  1528.  
  1529. IF applet = "Animate"
  1530.   BACKSTOP
  1531.   PAGE
  1532.   WIZPIC wizpics\javawiz.gif
  1533.   TYPE DESCRIPTION
  1534.   NAME applet
  1535.   DESCRIPTION ANIMATION\n\nThe Animation applet lets you display two or more pictures in rapid succession.  Depending upon the pictures, this can produce the effect of motion (animation).\n\nTo use this applet you must already have pictures available to display.  Each picture must be the same size (width and height) to use with this applet, and must be stored in the GIF or JPG file format.\n\nYou can create the pictures with some other program (even the Windows Paintbrush!), and you can use the Webwizz Image Converter tool, if needed, to change the pictures you create to the GIF or JPG file format.\n\nPress the Next button to continue adding the Animation applet, or press the Previous button to pick a different applet.
  1536.   GOSUB Animate
  1537. ENDIF
  1538.  
  1539. IF applet = "Banner"
  1540.   BACKSTOP
  1541.   PAGE
  1542.   WIZPIC wizpics\javawiz.gif
  1543.   TYPE DESCRIPTION
  1544.   NAME applet
  1545.   DESCRIPTION BANNER\nThe Banner applet lets you to add a billboard to your Web page. The billboard can display one or several pictures. The applet automatically uses a variety of interesting and eye-catching transition effects between each picture display.  As an option, you can make each picture in the billboard act as a hot spot which links to remote pages, or pages within your own site.\n\nTo use this applet you must already have the picture(s) available to display.  If you are using more than one picture, each picture should be the same size (width and height), and they must all be stored in the GIF or JPG file format.\n\nYou can create the pictures with some other program (even the Windows Paintbrush!), and you can use the Webwizz Image Converter tool, if needed, to change the pictures you create to the GIF or JPG file format.\n\nPress the Next button to continue adding the Banner applet, or press the Previous button to pick a different applet.
  1546.   GOSUB Banner
  1547. ENDIF
  1548.  
  1549. IF applet = "bitmapButton"
  1550.   BACKSTOP
  1551.   PAGE
  1552.   WIZPIC wizpics\javawiz.gif
  1553.   TYPE DESCRIPTION
  1554.   NAME applet
  1555.   DESCRIPTION PUSH BUTTON LINK\n\nThe Push Button Link applet displays a button that the surfer can press to activate a hot spot link to another page, either on your site or a distant site.\n\nTo give the button a realistic look, you must provide two different button pictures, one each showing the button `Up' and `Down'. These two button images must be stored side by side in the same picture file.  Use software like the Windows Paint program to build a bitmap (BMP) file with the two images side-by-side. The applet requires the final image file to be in GIF or JPG format, so next use the Webwizz Image Converter tool to convert your BMP files.\n\nPress the Next button to continue adding the Button applet, or press the Previous button to pick a different applet.
  1556.   GOSUB BitmapButton
  1557. ENDIF
  1558.  
  1559. IF applet = "Blink"
  1560.   BACKSTOP
  1561.   PAGE
  1562.   WIZPIC wizpics\javawiz.gif
  1563.   TYPE DESCRIPTION
  1564.   NAME applet
  1565.   DESCRIPTION BLINKING TEXT OR PICTURE\n\nThe Blinker applet lets you add blinking text or a blinking picture to your Web page.\n\nTo use this applet to display a blinking picture, you must already have the picture available to display. The picture must be stored in the GIF or JPG file format.\n\nYou can create the picture with some other program (even the Windows Paintbrush!) or you could choose a picture from the Webwizz clip art directory.  You can use the Webwizz Image Converter tool, if needed, to make adjustments to the picture and to change the picture format to the GIF or JPG file format.\n\nPress the Next button to continue adding the Blink applet, or press the Previous button to pick a different applet.
  1566.   GOSUB Blink
  1567. ENDIF
  1568.  
  1569. IF applet = "calendar"
  1570.   BACKSTOP
  1571.   PAGE
  1572.   WIZPIC wizpics\javawiz.gif
  1573.   TYPE DESCRIPTION
  1574.   NAME applet
  1575.   DESCRIPTION CALENDAR\n\nThe Calendar applet displays a calendar for the current month and year. The surfer can flip the display on the calendar to show any earlier or later month with controls at the top of the calendar display.\n\nPress the Next button to continue adding the Calendar applet, or press the Previous button to pick a different applet.
  1576.   GOSUB Calendar
  1577. ENDIF
  1578.  
  1579. IF applet = "HR"
  1580.   BACKSTOP
  1581.   PAGE
  1582.   WIZPIC wizpics\javawiz.gif
  1583.   TYPE DESCRIPTION
  1584.   NAME applet
  1585.   DESCRIPTION HORIZONTAL RULE\n\nThe Horizontal Rule applet is an enhancement to the plain Horizontal Rule often seen in HTML coded Web pages.  It displays with several enhancments, including:\n   * using a picture instead of a plain line as the ruler\n   * adding a 3-D look to the line ruler itself, and\n   * adding a moving picture that oscillates across the rule.\n\nPress the Next button to continue adding the Horizontal Rule applet, or press the Previous button to pick a different applet.
  1586.   GOSUB HR
  1587. ENDIF
  1588.  
  1589. IF applet = "KR"
  1590.   BACKSTOP
  1591.   PAGE
  1592.   WIZPIC wizpics\javawiz.gif
  1593.   TYPE DESCRIPTION
  1594.   NAME applet
  1595.   DESCRIPTION DANCING LIGHTS\n\nThe Dancing Lights applet displays an eye-catching horizontal or vertical bar that contains a series of moving lights.\n\nThe lights, which can be square or circular, move continuously from left to right (or from top to bottom) and back again.\n\nPress the Next button to continue adding the Dancing Lights applet, or press the Previous button to pick a different applet.
  1596.   GOSUB KR
  1597. ENDIF
  1598.  
  1599. IF applet = "DClock"
  1600.   BACKSTOP
  1601.   PAGE
  1602.   WIZPIC wizpics\javawiz.gif
  1603.   TYPE DESCRIPTION
  1604.   NAME applet
  1605.   DESCRIPTION DIGITAL CLOCK\n\nThe Digital Clock applet allows you to insert a digital clock onto your web page.\n\nYou may choose whether to use military time, and whether to show the seconds, and may also specify the color of the digits.\n\nPress the Next button to continue inserting the Digital Clock Java applet, or press the Previous button to insert a different applet.
  1606.   GOSUB DClock
  1607. ENDIF
  1608.  
  1609. IF applet = "Flasher"
  1610.   BACKSTOP
  1611.   PAGE
  1612.   WIZPIC wizpics\javawiz.gif
  1613.   TYPE DESCRIPTION
  1614.   NAME applet
  1615.   DESCRIPTION FLASHER\n\nThe Flasher applet allows you to display a picture on your Web page. The picture is continuously redisplayed, using a variety of interesting transition effects.  Use this applet to display a picture in a very eye-catching way.\n\nThe picture must be stored in the GIF or JPG file format.  You can create the picture with some other program (even the Windows Paintbrush!) or you could choose a picture from the Webwizz clip art directory.  You can use the Webwizz Image Converter tool, if needed, to make adjustments to the picture and to change the picture format to the GIF or JPG file format.\n\nPress the Next button to continue inserting the Flasher Java applet, or press the Previous button to insert a different applet.
  1616.   GOSUB Flasher
  1617. ENDIF
  1618.  
  1619. IF applet = "Marquee"
  1620.   BACKSTOP
  1621.   PAGE
  1622.   WIZPIC wizpics\javawiz.gif
  1623.   TYPE DESCRIPTION
  1624.   NAME applet
  1625.   DESCRIPTION MARQUEE\n\nThe Marquee applet allows you to display scrolling text or a scrolling picture. The text or picture scrolls continuously from side to side or up and down.\n\nIf you are going to scroll a picture, then you must already have the picture file, and it must be saved in the GIF or JPG format.  If you don't have access to a program that creates pictures in this format, you could use the Windows Paint program to make a BMP file, and then use the Webwizz Image Converter tool to convert it to the required format.  Also, many of the pictures in the Webwizz clip art collection are stored in this format.\n\nPress the Next button to continue setting up the Marquee Java applet, or press the Previous button to pick a different applet.
  1626.   GOSUB Marquee
  1627. ENDIF
  1628.  
  1629. IF applet="ScrollText"
  1630.   BACKSTOP
  1631.   PAGE
  1632.   WIZPIC wizpics\javawiz.gif
  1633.   TYPE DESCRIPTION
  1634.   NAME applet
  1635.   DESCRIPTION TEXT SCROLLER\n\nThe Scroll Text applet allows you to display the contents of a text file. The text file can contain multiple lines of text which are each scrolled through the window repeatedly. The contents of the text file will be scrolled from bottom to top and off the screen and then the scroll will repeat.\n\nDue to security restrictions in the Java language, this applet is a little difficult to use.  You must upload the text file to your site manually, make a reference to the file on your site via a URL that you type, and this applet cannot be tested on your local system.  It can only be tested once the files are all loaded to your host server.\n\nPress the Next button to continue inserting the Scroll Text Java applet, or press the Previous button to insert a different applet.
  1636.   GOSUB ScrollText
  1637. ENDIF
  1638.  
  1639. IF applet="SoundPlayer"
  1640.   BACKSTOP
  1641.   PAGE
  1642.   WIZPIC wizpics\javawiz.gif
  1643.   TYPE DESCRIPTION
  1644.   NAME applet
  1645.   DESCRIPTION SOUND PLAYER\n\nThe Sound Player applet allows you to play an AU sound file in your Web page. The AU format is one of the most popular formats for sound files used on the Web because of the compact size of the files. This applet requires that the sound file be saved in the AU format.  If you don't have access to a program for creating sound files in the AU format, you can download one from the Web.\n\nWHAM, Waveform Hold and Modify, is such a program.  Get it with FTP from:\n      ftp://ftp.cdrom.com/pub/cica/audio\n\nAnother program is DirectAudio Player.  Browse to find out about it and download:\n      http://www.cam.org/~noelbou/gsm_wine.html#menu\n\nPress the Next button to continue inserting the Sound Player Java applet, or press the Previous button to insert a different applet.
  1646.   GOSUB SoundPlayer
  1647. ENDIF
  1648.  
  1649. IF applet="Wave"
  1650.   BACKSTOP
  1651.   PAGE
  1652.   WIZPIC wizpics\javawiz.gif
  1653.   TYPE DESCRIPTION
  1654.   NAME applet
  1655.   DESCRIPTION WAVE BAR\n\nThe Wave applet is an animated horizontal display which you can use to separate items on your page or simply to put some eye-catching motion onto the page.  It allows you to display a moving wave effect as a horizontal rule. The wave can move either from left to right or from right to left.\n\nPress the Next button to continue inserting the Wave Java applet, or press the Previous button to insert a different applet.
  1656.   GOSUB Wave
  1657. ENDIF
  1658.  
  1659. ; *** RAE Start
  1660. IF applet = "Calculator"
  1661.   BACKSTOP
  1662.   PAGE
  1663.   WIZPIC wizpics\javawiz.gif
  1664.   TYPE DESCRIPTION
  1665.   NAME applet
  1666.   DESCRIPTION CALCULATOR\n\nThe Calculator applet displays a working four function calculator on your Web page.\n\nIt's a neat way to let those who visit your site do some simple arithmetic.  It's especially good on a page where an order form is displayed to allow a surfer to check your arithmetic!
  1667.   GOSUB Calculator
  1668. ENDIF
  1669.  
  1670. IF applet = "Fade"
  1671.   BACKSTOP
  1672.   PAGE
  1673.   WIZPIC wizpics\javawiz.gif
  1674.   TYPE DESCRIPTION
  1675.   NAME applet
  1676.   DESCRIPTION FADE IN/OUT AN IMAGE\n\nThe Fade applet displays a background color and then fades a picture into view.\n\nThen it fades the picture back out.\n\nYou can control how long it takes for the fade in and out, how many steps in the fade, and how long the picture is visible and invisible.
  1677.   GOSUB Fade
  1678. ENDIF
  1679.  
  1680. IF applet = "Fireworks"
  1681.   BACKSTOP
  1682.   PAGE
  1683.   WIZPIC wizpics\javawiz.gif
  1684.   TYPE DESCRIPTION
  1685.   NAME applet
  1686.   DESCRIPTION FIREWORKS\n\nThe Fireworks applet displays a collection of animated fireworks in the space you allow.\n\nThis applet works best when the page has a background color of black, or an image that simulates the sky.\n\nHowever, it can be used against any color background.
  1687.   GOSUB Fireworks
  1688. ENDIF
  1689.  
  1690. IF applet = "Hello"
  1691.   BACKSTOP
  1692.   PAGE
  1693.   WIZPIC wizpics\javawiz.gif
  1694.   TYPE DESCRIPTION
  1695.   NAME applet
  1696.   DESCRIPTION NETWORK GREETING\n\nThe Network Greeting applet displays a welcome message to those who visit your Web page.\n\nThe greeting is personalized with their user name and the domain from which they have accessed your site!
  1697.   GOSUB Hello
  1698. ENDIF
  1699.  
  1700. IF applet = "PulsingShapes"
  1701.   BACKSTOP
  1702.   PAGE
  1703.   WIZPIC wizpics\javawiz.gif
  1704.   TYPE DESCRIPTION
  1705.   NAME applet
  1706.   DESCRIPTION PULSING SHAPES\n\nThe Pulsing Shapes applet displays squares and circles at random locations in the applet and pulses them between a small and a large size.
  1707.   GOSUB PulsingShapes
  1708. ENDIF
  1709.  
  1710. IF applet = "TextEffects"
  1711.   BACKSTOP
  1712.   PAGE
  1713.   WIZPIC wizpics\javawiz.gif
  1714.   TYPE DESCRIPTION
  1715.   NAME applet
  1716.   DESCRIPTION TEXT EFFECTS\n\nThe Text Effects applet animates text in various interesting ways.\n\nThis applet is ideal for creating an eye-catching headline.  It works best for a short amount of text: a couple of words or a short phrase.
  1717.   GOSUB TextEffects
  1718. ENDIF
  1719.  
  1720. IF applet = "TextManiac"
  1721.   BACKSTOP
  1722.   PAGE
  1723.   WIZPIC wizpics\javawiz.gif
  1724.   TYPE DESCRIPTION
  1725.   NAME applet
  1726.   DESCRIPTION TEXT MANIAC\n\nThe Text Maniac applet animates a line of text.  It allows a great deal of control over how the animation is done.\n\nYou can have each character displayed in various colors, and move at various rates.
  1727.   GOSUB TextManiac
  1728. ENDIF
  1729.  
  1730. IF applet = "TextPulse"
  1731.   BACKSTOP
  1732.   PAGE
  1733.   WIZPIC wizpics\javawiz.gif
  1734.   TYPE DESCRIPTION
  1735.   NAME applet
  1736.   DESCRIPTION TEXT PULSE\n\nThe Text pulse applet animates a line of text by 'pulsing' the text from a small font size to a larger font size and back.
  1737.   GOSUB TextPulse
  1738. ENDIF
  1739.  
  1740.  
  1741. ; AnalogClock
  1742. [SetAnalogClockVars]
  1743. SET analogClockHBP = "ACHB2.CLA","@",classesDir,"AnalogClockHBP",QC
  1744. SET analogClockHDS = "ACHD2.CLA","@",classesDir,"AnalogClockHDS",QC
  1745. SET analogClockLL = "ACL2.CLA","@",classesDir,"AnalogClockLL",QC
  1746. SET analogClockMarquee = "ACMARQU2.CLA","@",classesDir,"AnalogClockMarquee",QC
  1747. SET analogClockPulsing = "ACPULS2.CLA","@",classesDir,"AnalogClockPulsing",QC
  1748. SET analogClockRainbow = "ACRAIN2.CLA","@",classesDir,"AnalogClockRainbow",QC
  1749. SET analogClockRaised = "ACRAISE2.CLA","@",classesDir,"AnalogClockRaised",QC
  1750. SET analogClockRaisedLevel = "ACR2.CLA","@",classesDir,"AnalogClockRaisedLevel",QC
  1751. SET analogClockSimple = "ACSIMPL2.CLA","@",classesDir,"AnalogClockSimple",QC
  1752. SET analogClockNB = "ACN2.CLA","@",classesDir,"AnalogClockNB",QC
  1753. SET analogClockCanvas = "ACCANVA2.CLA","@",classesDir,"AnalogClockCanvas",QC
  1754.  
  1755.  
  1756. ;Animate
  1757. [SetAnimateVars]
  1758. SET animateHBP = "ANHB2.CLA","@",classesDir,"AnimateHBP",QC
  1759. SET animateHDS = "ANHD2.CLA","@",classesDir,"AnimateHDS",QC
  1760. SET animateLL = "ANL2.CLA","@",classesDir,"AnimateLL",QC
  1761. SET animateMarquee = "ANMARQU2.CLA","@",classesDir,"AnimateMarquee",QC
  1762. SET animatePulsing = "ANPULS2.CLA","@",classesDir,"AnimatePulsing",QC
  1763. SET animateRainbow = "ANRAIN2.CLA","@",classesDir,"AnimateRainbow",QC
  1764. SET animateRaised = "ANRAISE2.CLA","@",classesDir,"AnimateRaised",QC
  1765. SET animateRaisedLevel = "ANR2.CLA","@",classesDir,"AnimateRaisedLevel",QC
  1766. SET animateSimple = "ANSIMPL2.CLA","@",classesDir,"AnimateSimple",QC
  1767. SET animateNB = "AN2.CLA","@",classesDir,"AnimateNB",QC
  1768. SET animateCanvas = "ANIMATE2.CLA","@",classesDir,"AnimateCanvas",QC
  1769.  
  1770. ;Banner
  1771. [SetBannerVars]
  1772. SET bannerHBP = "BAHB2.CLA","@",classesDir,"BannerHBP",QC
  1773. SET bannerHDS = "BAHD2.CLA","@",classesDir,"BannerHDS",QC
  1774. SET bannerLL = "BAL2.CLA","@",classesDir,"BannerLL",QC
  1775. SET bannerMarquee = "BAMARQU2.CLA","@",classesDir,"BannerMarquee",QC
  1776. SET bannerPulsing = "BAPULS2.CLA","@",classesDir,"BannerPulsing",QC
  1777. SET bannerRainbow = "BARAIN2.CLA","@",classesDir,"BannerRainbow",QC
  1778. SET bannerRaised = "BARAISE2.CLA","@",classesDir,"BannerRaised",QC
  1779. SET bannerRaisedLevel = "BAR2.CLA","@",classesDir,"BannerRaisedLevel",QC
  1780. SET bannerSimple = "BASIMPL2.CLA","@",classesDir,"BannerSimple",QC
  1781. SET bannerNB = "BANNERN2.CLA","@",classesDir,"BannerNB",QC
  1782. SET bannerCanvas = "BANNER2.CLA","@",classesDir,"BannerCanvas",QC
  1783.  
  1784.  
  1785. ; BitmapButton
  1786. [SetBitmapButtonVars]
  1787. SET bitmapButtonHBP = "BBHB2.CLA","@",classesDir,"BitmapButtonHBP",QC
  1788. SET bitmapButtonHDS = "BBHD2.CLA","@",classesDir,"BitmapButtonHDS",QC
  1789. SET bitmapButtonLL = "BBL2.CLA","@",classesDir,"BitmapButtonLL",QC
  1790. SET bitmapButtonMarquee = "BBMARQU2.CLA","@",classesDir,"BitmapButtonMarquee",QC
  1791. SET bitmapButtonPulsing = "BBPULS2.CLA","@",classesDir,"BitmapButtonPulsing",QC
  1792. SET bitmapButtonRainbow = "BBRAIN2.CLA","@",classesDir,"BitmapButtonRainbow",QC
  1793. SET bitmapButtonRaised = "BBRAISE2.CLA","@",classesDir,"BitmapButtonRaised",QC
  1794. SET bitmapButtonRaisedLevel = "BBR2.CLA","@",classesDir,"BitmapButtonRaisedLevel",QC
  1795. SET bitmapButtonSimple = "BBSIMPL2.CLA","@",classesDir,"BitmapButtonSimple",QC
  1796. SET bitmapButtonNB = "BBN2.CLA","@",classesDir,"BitmapButtonNB",QC
  1797. SET bitmapButtonCanvas = "BBCANVA2.CLA","@",classesDir,"BitmapButtonCanvas",QC
  1798.  
  1799.  
  1800. ; Blink
  1801. [SetBlinkVars]
  1802. SET blinkHBP = "BLHB2.CLA","@",classesDir,"BlinkHBP",QC
  1803. SET blinkHDS = "BLHD2.CLA","@",classesDir,"BlinkHDS",QC
  1804. SET blinkLL = "BLL2.CLA","@",classesDir,"BlinkLL",QC
  1805. SET blinkMarquee = "BLMARQU2.CLA","@",classesDir,"BlinkMarquee",QC
  1806. SET blinkPulsing = "BLPULS2.CLA","@",classesDir,"BlinkPulsing",QC
  1807. SET blinkRainbow = "BLRAIN2.CLA","@",classesDir,"BlinkRainbow",QC
  1808. SET blinkRaised = "BLRAISE2.CLA","@",classesDir,"BlinkRaised",QC
  1809. SET blinkRaisedLevel = "BLR2.CLA","@",classesDir,"BlinkRaisedLevel",QC
  1810. SET blinkSimple = "BLSIMPL2.CLA","@",classesDir,"BlinkSimple",QC
  1811. SET blinkNB = "BLN2.CLA","@",classesDir,"BlinkNB",QC
  1812. SET blinkCanvas = "BLCANVA2.CLA","@",classesDir,"BlinkCanvas",QC
  1813.  
  1814.  
  1815. ; Calendar
  1816. [SetCalendarVars]
  1817. SET calendarHBP = "CAHB2.CLA","@",classesDir,"CalendarHBP",QC
  1818. SET calendarHDS = "CAHD2.CLA","@",classesDir,"CalendarHDS",QC
  1819. SET calendarLL = "CAL2.CLA","@",classesDir,"CalendarLL",QC
  1820. SET calendarMarquee = "CAMARQU2.CLA","@",classesDir,"CalendarMarquee",QC
  1821. SET calendarPulsing = "CAPULS2.CLA","@",classesDir,"CalendarPulsing",QC
  1822. SET calendarRainbow = "CARAIN2.CLA","@",classesDir,"CalendarRainbow",QC
  1823. SET calendarRaised = "CARAISE2.CLA","@",classesDir,"CalendarRaised",QC
  1824. SET calendarRaisedLevel = "CAR2.CLA","@",classesDir,"CalendarRaisedLevel",QC
  1825. SET calendarSimple = "CASIMPL2.CLA","@",classesDir,"CalendarSimple",QC
  1826. SET calendarNB = "CAN2.CLA","@",classesDir,"CalendarNB",QC
  1827. SET calendarCanvas = "CACANVA2.CLA","@",classesDir,"CalendarCanvas",QC
  1828.  
  1829. ; DigitalClock
  1830. [SetDigitalClockVars]
  1831. SET digitalClockHBP = "DCHB2.CLA","@",classesDir,"DigitalClockHBP",QC
  1832. SET digitalClockHDS = "DCHD2.CLA","@",classesDir,"DigitalClockHDS",QC
  1833. SET digitalClockLL = "DCL2.CLA","@",classesDir,"DigitalClockLL",QC
  1834. SET digitalClockMarquee = "DCMARQU2.CLA","@",classesDir,"DigitalClockMarquee",QC
  1835. SET digitalClockPulsing = "DCPULS2.CLA","@",classesDir,"DigitalClockPulsing",QC
  1836. SET digitalClockRainbow = "DCRAIN2.CLA","@",classesDir,"DigitalClockRainbow",QC
  1837. SET digitalClockRaised = "DCRAISE2.CLA","@",classesDir,"DigitalClockRaised",QC
  1838. SET digitalClockRaisedLevel = "DCR2.CLA","@",classesDir,"DigitalClockRaisedLevel",QC
  1839. SET digitalClockSimple = "DCSIMPL2.CLA","@",classesDir,"DigitalClockSimple",QC
  1840. SET digitalClockNB = "DCN2.CLA","@",classesDir,"DigitalClockNB",QC
  1841. SET digitalClockCanvas = "DCCANVA2.CLA","@",classesDir,"DigitalClockCanvas",QC
  1842.  
  1843. ; Flasher
  1844. [SetFlasherVars]
  1845. SET flasherHBP = "FLHB2.CLA","@",classesDir,"FlasherHBP",QC
  1846. SET flasherHDS = "FLHD2.CLA","@",classesDir,"FlasherHDS",QC
  1847. SET flasherLL = "FLL2.CLA","@",classesDir,"FlasherLL",QC
  1848. SET flasherMarquee = "FLMARQU2.CLA","@",classesDir,"FlasherMarquee",QC
  1849. SET flasherPulsing = "FLPULS2.CLA","@",classesDir,"FlasherPulsing",QC
  1850. SET flasherRainbow = "FLRAIN2.CLA","@",classesDir,"FlasherRainbow",QC
  1851. SET flasherRaised = "FLRAISE2.CLA","@",classesDir,"FlasherRaised",QC
  1852. SET flasherRaisedLevel = "FLR2.CLA","@",classesDir,"FlasherRaisedLevel",QC
  1853. SET flasherSimple = "FLSIMPL2.CLA","@",classesDir,"FlasherSimple",QC
  1854. SET flasherNB = "FLN2.CLA","@",classesDir,"FlasherNB",QC
  1855. SET flasherCanvas = "FLCANVA2.CLA","@",classesDir,"FlasherCanvas",QC
  1856.  
  1857. ; HR
  1858. [SetHRVars]
  1859. SET hrHBP = "HRHB2.CLA","@",classesDir,"HRHBP",QC
  1860. SET hrHDS = "HRHD2.CLA","@",classesDir,"HRHDS",QC
  1861. SET hrLL = "HRL2.CLA","@",classesDir,"HRLL",QC
  1862. SET hrMarquee = "HRMARQU2.CLA","@",classesDir,"HRMarquee",QC
  1863. SET hrPulsing = "HRPULS2.CLA","@",classesDir,"HRPulsing",QC
  1864. SET hrRainbow = "HRRAIN2.CLA","@",classesDir,"HRRainbow",QC
  1865. SET hrRaised = "HRRAISE2.CLA","@",classesDir,"HRRaised",QC
  1866. SET hrRaisedLevel = "HRR2.CLA","@",classesDir,"HRRaisedLevel",QC
  1867. SET hrSimple = "HRSIMPL2.CLA","@",classesDir,"HRSimple",QC
  1868. SET hrNB = "HRN2.CLA","@",classesDir,"HRNB",QC
  1869. SET hrCanvas = "HRCANVA2.CLA","@",classesDir,"HRCanvas",QC
  1870.  
  1871. ;KR
  1872. [SetKRVars]
  1873. SET krHBP = "KRHB2.CLA","@",classesDir,"KRHBP",QC
  1874. SET krHDS = "KRHD2.CLA","@",classesDir,"KRHDS",QC
  1875. SET krLL = "KRL2.CLA","@",classesDir,"KRLL",QC
  1876. SET krMarquee = "KRMARQU2.CLA","@",classesDir,"KRMarquee",QC
  1877. SET krPulsing = "KRPULS2.CLA","@",classesDir,"KRPulsing",QC
  1878. SET krRainbow = "KRRAIN2.CLA","@",classesDir,"KRRainbow",QC
  1879. SET krRaised = "KRRAISE2.CLA","@",classesDir,"KRRaised",QC
  1880. SET krRaisedLevel = "KRR2.CLA","@",classesDir,"KRRaisedLevel",QC
  1881. SET krSimple = "KRSIMPL2.CLA","@",classesDir,"KRSimple",QC
  1882. SET krNB = "KRN2.CLA","@",classesDir,"KRNB",QC
  1883. SET krCanvas = "KRCANVA2.CLA","@",classesDir,"KRCanvas",QC
  1884.  
  1885. ;Marquee
  1886. [SetMarqueeVars]
  1887. SET marqueeHBP = "MAHB2.CLA","@",classesDir,"MarqueeHBP",QC
  1888. SET marqueeHDS = "MAHD2.CLA","@",classesDir,"MarqueeHDS",QC
  1889. SET marqueeLL = "MAL2.CLA","@",classesDir,"MarqueeLL",QC
  1890. SET marqueeMarquee = "MAMARQU2.CLA","@",classesDir,"MarqueeMarquee",QC
  1891. SET marqueePulsing = "MAPULS2.CLA","@",classesDir,"MarqueePulsing",QC
  1892. SET marqueeRainbow = "MARAIN2.CLA","@",classesDir,"MarqueeRainbow",QC
  1893. SET marqueeRaised = "MARAISE2.CLA","@",classesDir,"MarqueeRaised",QC
  1894. SET marqueeRaisedLevel = "MAR2.CLA","@",classesDir,"MarqueeRaisedLevel",QC
  1895. SET marqueeSimple = "MASIMPL2.CLA","@",classesDir,"MarqueeSimple",QC
  1896. SET marqueeNB = "MAN2.CLA","@",classesDir,"MarqueeNB",QC
  1897. SET marqueeCanvas = "MACANVA2.CLA","@",classesDir,"MarqueeCanvas",QC
  1898.  
  1899. ;ScrollText
  1900. [SetScrollTextVars]
  1901. SET scrollTextHBP = "STHB2.CLA","@",classesDir,"ScrollTextHBP",QC
  1902. SET scrollTextHDS = "STHD2.CLA","@",classesDir,"ScrollTextHDS",QC
  1903. SET scrollTextLL = "STL2.CLA","@",classesDir,"ScrollTextLL",QC
  1904. SET scrollTextMarquee = "STMARQU2.CLA","@",classesDir,"ScrollTextMarquee",QC
  1905. SET scrollTextPulsing = "STPULS2.CLA","@",classesDir,"ScrollTextPulsing",QC
  1906. SET scrollTextRainbow = "STRAIN2.CLA","@",classesDir,"ScrollTextRainbow",QC
  1907. SET scrollTextRaised = "STRAISE2.CLA","@",classesDir,"ScrollTextRaised",QC
  1908. SET scrollTextRaisedLevel = "STR2.CLA","@",classesDir,"ScrollTextRaisedLevel",QC
  1909. SET scrollTextSimple = "STSIMPL2.CLA","@",classesDir,"ScrollTextSimple",QC
  1910. SET scrollTextNB = "STN2.CLA","@",classesDir,"ScrollTextNB",QC
  1911. SET scrollTextCanvas = "STCANVA2.CLA","@",classesDir,"ScrollTextCanvas",QC
  1912.  
  1913. ;SP
  1914. [SetSPVars]
  1915. SET spHBP = "SPHB2.CLA","@",classesDir,"SPHBP",QC
  1916. SET spHDS = "SPHD2.CLA","@",classesDir,"SPHDS",QC
  1917. SET spLL = "SPL2.CLA","@",classesDir,"SPLL",QC
  1918. SET spMarquee = "SPMARQU2.CLA","@",classesDir,"SPMarquee",QC
  1919. SET spPulsing = "SPPULS2.CLA","@",classesDir,"SPPulsing",QC
  1920. SET spRainbow = "SPRAIN2.CLA","@",classesDir,"SPRainbow",QC
  1921. SET spRaised = "SPRAISE2.CLA","@",classesDir,"SPRaised",QC
  1922. SET spRaisedLevel = "SPR2.CLA","@",classesDir,"SPRaisedLevel",QC
  1923. SET spSimple = "SPSIMPL2.CLA","@",classesDir,"SPSimple",QC
  1924. SET spNB = "SPN2.CLA","@",classesDir,"SPNB",QC
  1925. SET spPanel = "SPPANE2.CLA","@",classesDir,"SPPanel",QC
  1926.  
  1927. ;Wave
  1928. [SetWaveVars]
  1929. SET waveHBP = "WAHB2.CLA","@",classesDir,"WaveHBP",QC
  1930. SET waveHDS = "WAHD2.CLA","@",classesDir,"WaveHDS",QC
  1931. SET waveLL = "WAL2.CLA","@",classesDir,"WaveLL",QC
  1932. SET waveMarquee = "WAMARQU2.CLA","@",classesDir,"WaveMarquee",QC
  1933. SET wavePulsing = "WAPULS2.CLA","@",classesDir,"WavePulsing",QC
  1934. SET waveRainbow = "WARAIN2.CLA","@",classesDir,"WaveRainbow",QC
  1935. SET waveRaised = "WARAISE2.CLA","@",classesDir,"WaveRaised",QC
  1936. SET waveRaisedLevel = "WAR2.CLA","@",classesDir,"WaveRaisedLevel",QC
  1937. SET waveSimple = "WASIMPL2.CLA","@",classesDir,"WaveSimple",QC
  1938. SET waveNB = "WAN2.CLA","@",classesDir,"WaveNB",QC
  1939. SET waveCanvas = "WACANVA2.CLA","@",classesDir,"WaveCanvas",QC
  1940.  
  1941. ;  Calculator
  1942. [SetCalculatorVars]
  1943. SET calculatorHBP = "CALCHBP2.CLA","@",classesDir,"CalculatorHBP",QC
  1944. SET calculatorHDS = "CALCHDS2.CLA","@",classesDir,"CalculatorHDS",QC
  1945. SET calculatorLL = "CALCLL2.CLA","@",classesDir,"CalculatorLL",QC
  1946. SET calculatorMarquee = "CALCMAR2.CLA","@",classesDir,"CalculatorMarquee",QC
  1947. SET calculatorPulsing = "CALCPLS2.CLA","@",classesDir,"CalculatorPulsing",QC
  1948. SET calculatorRainbow = "CALCRB2.CLA","@",classesDir,"CalculatorRainbow",QC
  1949. SET calculatorRaised = "CALCRAI2.CLA","@",classesDir,"CalculatorRaised",QC
  1950. SET calculatorRaisedLevel = "CALCRL2.CLA","@",classesDir,"CalculatorRaisedLevel",QC
  1951. SET calculatorSimple = "CALCSIM2.CLA","@",classesDir,"CalculatorSimple",QC
  1952. SET calculatorNB = "CALCNB2.CLA","@",classesDir,"CalculatorNB",QC
  1953. SET calculatorCanvas = "CALCPAN2.CLA","@",classesDir,"CalculatorPanel",QC
  1954.  
  1955. ; Fade
  1956. [SetFadeVars]
  1957. SET fadeHBP = "FADEHBP2.CLA","@",classesDir,"FadeHBP",QC
  1958. SET fadeHDS = "FADEHDS2.CLA","@",classesDir,"FadeHDS",QC
  1959. SET fadeLL = "FADELL2.CLA","@",classesDir,"FadeLL",QC
  1960. SET fadeMarquee = "FADEMAR2.CLA","@",classesDir,"FadeMarquee",QC
  1961. SET fadePulsing = "FADEPLS2.CLA","@",classesDir,"FadePulsing",QC
  1962. SET fadeRainbow = "FADERB2.CLA","@",classesDir,"FadeRainbow",QC
  1963. SET fadeRaised = "FADERAI2.CLA","@",classesDir,"FadeRaised",QC
  1964. SET fadeRaisedLevel = "FADERL2.CLA","@",classesDir,"FadeRaisedLevel",QC
  1965. SET fadeSimple = "FADESIM2.CLA","@",classesDir,"FadeSimple",QC
  1966. SET fadeNB = "FADENB2.CLA","@",classesDir,"FadeNB",QC
  1967. SET fadeCanvas = "FADECAN2.CLA","@",classesDir,"FadeCanvas",QC
  1968.  
  1969. ; Fireworks
  1970. [SetFireworksVars]
  1971. SET fireworksHBP = "FIREHBP2.CLA","@",classesDir,"FireworksHBP",QC
  1972. SET fireworksHDS = "FIREHDS2.CLA","@",classesDir,"FireworksHDS",QC
  1973. SET fireworksLL = "FIRELL2.CLA","@",classesDir,"FireworksLL",QC
  1974. SET fireworksMarquee = "FIREMAR2.CLA","@",classesDir,"FireworksMarquee",QC
  1975. SET fireworksPulsing = "FIREPLS2.CLA","@",classesDir,"FireworksPulsing",QC
  1976. SET fireworksRainbow = "FIRERB2.CLA","@",classesDir,"FireworksRainbow",QC
  1977. SET fireworksRaised = "FIRERAI2.CLA","@",classesDir,"FireworksRaised",QC
  1978. SET fireworksRaisedLevel = "FIRERL2.CLA","@",classesDir,"FireworksRaisedLevel",QC
  1979. SET fireworksSimple = "FIRESIM2.CLA","@",classesDir,"FireworksSimple",QC
  1980. SET fireworksNB = "FIRENB2.CLA","@",classesDir,"FireworksNB",QC
  1981. SET fireworksCanvas = "FIRECAN2.CLA","@",classesDir,"FireworksCanvas",QC
  1982.  
  1983. ; Hello
  1984. [SetHelloVers]
  1985. SET helloHBP = "HELOHBP2.CLA","@",classesDir,"HelloHBP",QC
  1986. SET helloHDS = "HELOHDS2.CLA","@",classesDir,"HelloHDS",QC
  1987. SET helloLL = "HELOLL2.CLA","@",classesDir,"HelloLL",QC
  1988. SET helloMarquee = "HELOMAR2.CLA","@",classesDir,"HelloMarquee",QC
  1989. SET helloPulsing = "HELOPLS2.CLA","@",classesDir,"HelloPulsing",QC
  1990. SET helloRainbow = "HELORB2.CLA","@",classesDir,"HelloRainbow",QC
  1991. SET helloRaised = "HELORAI2.CLA","@",classesDir,"HelloRaised",QC
  1992. SET helloRaisedLevel = "HELORL2.CLA","@",classesDir,"HelloRaisedLevel",QC
  1993. SET helloSimple = "HELOSIM2.CLA","@",classesDir,"HelloSimple",QC
  1994. SET helloNB = "HELONB2.CLA","@",classesDir,"HelloNB",QC
  1995. SET helloCanvas = "HELOCAN2.CLA","@",classesDir,"HelloCanvas",QC
  1996.  
  1997. ; Pulsing Shapes
  1998. [SetPulsingShapesVars]
  1999. SET pulsingShapesHBP = "PULSHBP2.CLA","@",classesDir,"PulsingShapesHBP",QC
  2000. SET pulsingShapesHDS = "PULSHDS2.CLA","@",classesDir,"PulsingShapesHDS",QC
  2001. SET pulsingShapesLL = "PULSLL2.CLA","@",classesDir,"PulsingShapesLL",QC
  2002. SET pulsingShapesMarquee = "PULSMAR2.CLA","@",classesDir,"PulsingShapesMarquee",QC
  2003. SET pulsingShapesPulsing = "PULSPLS2.CLA","@",classesDir,"PulsingShapesPulsing",QC
  2004. SET pulsingShapesRainbow = "PULSRB2.CLA","@",classesDir,"PulsingShapesRainbow",QC
  2005. SET pulsingShapesRaised = "PULSRAI2.CLA","@",classesDir,"PulsingShapesRaised",QC
  2006. SET pulsingShapesRaisedLevel = "PULSRL2.CLA","@",classesDir,"PulsingShapesRaisedLevel",QC
  2007. SET pulsingShapesSimple = "PULSSIM2.CLA","@",classesDir,"PulsingShapesSimple",QC
  2008. SET pulsingShapesNB = "PULSNB2.CLA","@",classesDir,"PulsingShapesNB",QC
  2009. SET pulsingShapesCanvas = "PULSCAN2.CLA","@",classesDir,"PulsingShapesCanvas",QC
  2010.  
  2011. ; Text Effects
  2012. [SetTextEffectsVars]
  2013. SET textEffectsHBP = "TXTEHBP2.CLA","@",classesDir,"TextEffectsHBP",QC
  2014. SET textEffectsHDS = "TXTEHDS2.CLA","@",classesDir,"TextEffectsHDS",QC
  2015. SET textEffectsLL = "TXTELL2.CLA","@",classesDir,"TextEffectsLL",QC
  2016. SET textEffectsMarquee = "TXTEMAR2.CLA","@",classesDir,"TextEffectsMarquee",QC
  2017. SET textEffectsPulsing = "TXTEPLS2.CLA","@",classesDir,"TextEffectsPulsing",QC
  2018. SET textEffectsRainbow = "TXTERB2.CLA","@",classesDir,"TextEffectsRainbow",QC
  2019. SET textEffectsRaised = "TXTERAI2.CLA","@",classesDir,"TextEffectsRaised",QC
  2020. SET textEffectsRaisedLevel = "TXTERL2.CLA","@",classesDir,"TextEffectsRaisedLevel",QC
  2021. SET textEffectsSimple = "TXTESIM2.CLA","@",classesDir,"TextEffectsSimple",QC
  2022. SET textEffectsNB = "TXTENB2.CLA","@",classesDir,"TextEffectsNB",QC
  2023. SET textEffectsCanvas = "TXTECAN2.CLA","@",classesDir,"TextEffectsCanvas",QC
  2024.  
  2025. ; Text Maniac
  2026. [SetTextManiacVars]
  2027. SET textManiacHBP = "TXTMHBP2.CLA","@",classesDir,"TextManiacHBP",QC
  2028. SET textManiacHDS = "TXTMHDS2.CLA","@",classesDir,"TextManiacHDS",QC
  2029. SET textManiacLL = "TXTMLL2.CLA","@",classesDir,"TextManiacLL",QC
  2030. SET textManiacMarquee = "TXTMMAR2.CLA","@",classesDir,"TextManiacMarquee",QC
  2031. SET textManiacPulsing = "TXTMPLS2.CLA","@",classesDir,"TextManiacPulsing",QC
  2032. SET textManiacRainbow = "TXTMRB2.CLA","@",classesDir,"TextManiacRainbow",QC
  2033. SET textManiacRaised = "TXTMRAI2.CLA","@",classesDir,"TextManiacRaised",QC
  2034. SET textManiacRaisedLevel = "TXTMRL2.CLA","@",classesDir,"TextManiacRaisedLevel",QC
  2035. SET textManiacSimple = "TXTMSIM2.CLA","@",classesDir,"TextManiacSimple",QC
  2036. SET textManiacNB = "TXTMNB2.CLA","@",classesDir,"TextManiacNB",QC
  2037. SET textManiacCanvas = "TXTMCAN2.CLA","@",classesDir,"TextManiacCanvas",QC
  2038.  
  2039. ; Text Pulse
  2040. [SetTextPulseVars]
  2041. SET textPulseHBP = "TXTPHBP2.CLA","@",classesDir,"TextPulseHBP",QC
  2042. SET textPulseHDS = "TXTPHDS2.CLA","@",classesDir,"TextPulseHDS",QC
  2043. SET textPulseLL = "TXTPLL2.CLA","@",classesDir,"TextPulseLL",QC
  2044. SET textPulseMarquee = "TXTPMAR2.CLA","@",classesDir,"TextPulseMarquee",QC
  2045. SET textPulsePulsing = "TXTPPLS2.CLA","@",classesDir,"TextPulsePulsing",QC
  2046. SET textPulseRainbow = "TXTPRB2.CLA","@",classesDir,"TextPulseRainbow",QC
  2047. SET textPulseRaised = "TXTPRAI2.CLA","@",classesDir,"TextPulseRaised",QC
  2048. SET textPulseRaisedLevel = "TXTPRL2.CLA","@",classesDir,"TextPulseRaisedLevel",QC
  2049. SET textPulseSimple = "TXTPSIM2.CLA","@",classesDir,"TextPulseSimple",QC
  2050. SET textPulseNB = "TXTPNB2.CLA","@",classesDir,"TextPulseNB",QC
  2051. SET textPulseCanvas = "TXTPCAN2.CLA","@",classesDir,"TextPulseCanvas",QC
  2052.  
  2053. ;   Utility classes
  2054. [SetUtilVars]
  2055. SET appletParam = "APPLET2.CLA","@",classesDir,"AppletParam",QC
  2056. SET awtUtils = "AWTUTIL2.CLA","@",classesDir,"AWTUtils",QC
  2057.  
  2058. ;   Border classes
  2059. [SetBorderVars]
  2060. SET borderPanel = "BORDER2.CLA","@",classesDir,"BorderPanel",QC
  2061. SET dynamicBorderPanel = "DYNAMIC2.CLA","@",classesDir,"DynamicBorderPanel",QC
  2062. SET hatchBorderPanel = "HATCH2.CLA","@",classesDir,"HatchBorderPanel",QC
  2063. SET hdsBorderPanel = "HDSPANE2.CLA","@",classesDir,"HDSBorderPanel",QC
  2064. SET loweredLevelBorderPanel = "LOWERED2.CLA","@",classesDir,"LoweredLevelBorderPanel",QC
  2065. SET marqueeBorderPanel = "MARQUEE2.CLA","@",classesDir,"MarqueeBorderPanel",QC
  2066. SET pulsingBorderPanel = "PULSING2.CLA","@",classesDir,"PulsingBorderPanel",QC
  2067. SET rainbowBorderPanel = "RAINBOW2.CLA","@",classesDir,"RainbowBorderPanel",QC
  2068. SET raisedBorderPanel = "RAISED2.CLA","@",classesDir,"RaisedBorderPanel",QC
  2069. SET raisedLevelBorderPanel = "RAISEDL2.CLA","@",classesDir,"RaisedLevelBorderPanel",QC
  2070. SET simpleBorderPanel = "SIMPLE2.CLA","@",classesDir,"SimpleBorderPanel",QC
  2071. SET solidBorderPanel = "SOLID2.CLA","@",classesDir,"SolidBorderPanel",QC
  2072. SET staticBorderPanel = "STATIC2.CLA","@",classesDir,"StaticBorderPanel",QC
  2073.  
  2074.  
  2075. ; Analog clock applet
  2076. [AnalogClock]
  2077. GOSUB InitParamsAndFiles
  2078. SET className = "AnalogClock"
  2079. SET classParam = "analogClock"
  2080. SET clockFace = ""
  2081. SET withFace = YY
  2082.  
  2083. GOSUB AskForBackgroundSettings
  2084.  
  2085. ; get clock face to use
  2086. BACKSTOP
  2087. PAGE
  2088. WIZPIC wizpics\wizchoz3.gif
  2089. TYPE LIST
  2090. NAME clockFace
  2091. DESCRIPTION You can choose the style of clock face from the list provided below.  Click on any item in the list below to see what the clock face looks like.
  2092. PROMPT &Clock Face to Use:
  2093. DEFAULT 1
  2094. ARGUMENT "Gold Round Face Clock"@clock1.gif@"classes\Clock1.gif"
  2095. ARGUMENT "Square Metallic Clock"@clock2.gif@"classes\Clock2.gif"
  2096. ARGUMENT "Circular Metallic Clock"@clock3.gif@"classes\Clock3.gif"
  2097. ARGUMENT "Art Deco Clock"@clock4.gif@"classes\Clock4.gif"
  2098. ARGUMENT "School House Clock"@clock5.gif@"classes\Clock5.gif"
  2099. ARGUMENT "Decorative Round Clock"@clock6.gif@"classes\Clock6.gif"
  2100. ARGUMENT "Clock Man"@clock7.gif@"classes\Clock7.gif"
  2101. ARGUMENT "Marble Face Clock"@clock8.gif@"classes\Clock8.gif"
  2102. ARGUMENT "Gold Rectangle Clock"@clock9.gif@"classes\Clock9.gif"
  2103. ARGUMENT "Cloud Face Clock"@clock10.gif@"classes\Clock10.gif"
  2104. ARGUMENT "Wood Face Clock"@clock11.gif@"classes\Clock11.gif"
  2105.  
  2106. ;   Set the default hand colors.
  2107. SET hourHandColor = "0,0,0"
  2108. SET secondHandColor = "192,192,192"
  2109.  
  2110. IF clockFace = "clock11.gif"
  2111.   SET hourHandColor = "255,255,255"
  2112. ENDIF
  2113.  
  2114. IF clockFace = "clock8.gif"
  2115.   SET secondHandColor = "128,128,128"
  2116. ENDIF
  2117.  
  2118. ;get color of hour hand
  2119. BACKSTOP
  2120. PAGE
  2121. WIZPIC wizpics\javawiz.gif
  2122. TYPE COLOR
  2123. NAME hourHandColor
  2124. DESCRIPTION The clock applet draws the hands on the clock face you have picked when it runs.  You can pick any color for the hands, but be sure to pick a color that contrasts with the clock face.\n\nYou can press the `Choose' button to select a color from a palette display.  You can also enter an RGB value which defines the color to be used by setting the mix of Red, Green, and Blue. The square below shows the color you have chosen.
  2125.  
  2126. ;   Set minute hand to same color as hour hand
  2127. SET minuteHandColor = hourHandColor
  2128.  
  2129. BACKSTOP
  2130. PAGE
  2131. WIZPIC wizpics\wizchoz3.gif
  2132. TYPE COLOR
  2133. NAME secondHandColor
  2134. DESCRIPTION You can also set a different color for the clock's second hand to be drawn as the clock runs.  Pick a color for the second hand of the clock, and be sure to pick one that provides adequate contrast with the clock face you are using.\n\nYou can press the `Choose' button to select a color from a palette display.  You can also enter an RGB value which defines the color to be used by setting the mix of Red, Green, and Blue. The square below shows the color you have chosen.
  2135.  
  2136. GOSUB AskForBorder
  2137.  
  2138. SET temp = " Analog Clock applet"
  2139. BACKSTOP
  2140. PAGE
  2141. WIZPIC wizpics\wizmagic.gif
  2142. TYPE DESCRIPTION
  2143. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the color of the clock hands)",Unsure2,PrsOK
  2144. FINISH
  2145.  
  2146. IF withFace = YY
  2147.   SET faceFile = "classes\",clockFace
  2148.   SET height = heightof( faceFile )
  2149.   SET width = widthof( faceFile )
  2150.   SET imagealias = faceFile
  2151. ENDIF
  2152.  
  2153.  
  2154. ; Add border size to applet's size
  2155. GOSUB AddbrdSizeToApplet
  2156.  
  2157. SET newFile = analogClockCanvas
  2158. GOSUB AddFile
  2159. SET newFile = appletParam
  2160. GOSUB AddFile
  2161.  
  2162. GOSUB SetBackgroundParams
  2163.  
  2164. SET newParam = classParam,"Face0=",clockFace,"=Image file for the clock face"
  2165. GOSUB AddParameter
  2166. SET newFile = "classes\",clockFace,"@",classesDir,clockFace
  2167. GOSUB AddFile
  2168.  
  2169. SET newParam = classParam,"HourColor0=",hourHandColor,"=Color for the hour hand"
  2170. GOSUB AddParameter
  2171.  
  2172. SET newParam = classParam,"MinuteColor0=",minuteHandColor,"=Color for the minute hand"
  2173. GOSUB AddParameter
  2174.  
  2175. SET newParam = classParam,"SecondColor0=",secondHandColor,"=Color for the second hand"
  2176. GOSUB AddParameter
  2177.  
  2178. GOSUB SetCode
  2179.  
  2180.  
  2181. ;    AnalogClock
  2182. BUILDAPPLET
  2183. CODE         code
  2184. CODEBASE     codeBase
  2185. NAME         name
  2186. PARAMS    params
  2187. FILES        files
  2188. HEIGHT    height
  2189. WIDTH        width
  2190. IMAGEALIAS  imageAlias
  2191.  
  2192.  
  2193.  
  2194. [AskForBackgroundSettings]
  2195. SET bkImage = ""
  2196.  
  2197. BACKSTOP
  2198. PAGE
  2199. WIZPIC wizpics\javawiz.gif
  2200. TYPE CHECKBOXES
  2201. DESCRIPTION You can control the background displayed behind your Applet. The background can be composed from a solid color, or by `tiling' a picture file.\n\nCheck the boxes below to indicate your preferences for the background for this Applet.
  2202. ARGUMENT "Use a background &color"@useBkColor@Yes,No@Yes
  2203. ARGUMENT "Use a background &image"@useBkImage@Yes,No@No
  2204.  
  2205. IF useBkColor = YY
  2206.  SET bkColor = "192,192,192"
  2207.  IF applet = "Fireworks"
  2208.    SET bkColor = "0,0,0"
  2209.  ENDIF
  2210.  IF applet = "PulsingShapes"
  2211.    SET bkColor = "255,214,255"
  2212.  ENDIF
  2213.  BACKSTOP
  2214.  PAGE
  2215.  WIZPIC wizpics\javawiz.gif
  2216.  TYPE COLOR
  2217.  NAME bkColor
  2218.  DESCRIPTION Provide the color to be used for the Applet's background.  You can press the `Choose' button to select a color from a palette display.  You can also enter an RGB value which defines the color to be used by setting the mix of Red, Green, and Blue. The square below shows the color you have chosen.\n\nSelect the color to use for the background.
  2219. ENDIF
  2220.  
  2221. IF useBkImage = YY
  2222.  BACKSTOP
  2223.  PAGE
  2224.  WIZPIC wizpics\javawiz.gif
  2225.  TYPE GIFFILE
  2226.  NAME bkImage
  2227.  DESCRIPTION Specify the picture to be used as a background for the Applet. The picture you specify will be `tiled' to fill the area behind the Applet if it is smaller than the Applet's display area.  You can press the Browse button to search for a picture file, complete with a preview.\n\nSelect an image to use as the background.
  2228.  SETTYPE bkImage = normal
  2229. ENDIF
  2230.  
  2231.  
  2232. ;   Based on the background settings entered by the user,
  2233. ;   set the params and files as appropriate
  2234. [SetBackgroundParams]
  2235. IF useBkColor = YY
  2236.  SET newParam = classParam,"BkColor0=",bkColor,"=The background color of the applet"
  2237.  GOSUB AddParameter
  2238. ENDIF
  2239. IF useBkImage = YY
  2240.  IF bkImage <> ""
  2241.   SET newParam = classParam,"BkImage0=",filenameof( bkImage ),BkImgTx
  2242.   GOSUB AddParameter
  2243.   SET newFile = bkImage,"@",classesDir,filenameof( bkImage )
  2244.   GOSUB AddFile
  2245.  ENDIF
  2246. ENDIF
  2247.  
  2248.  
  2249. ; Initialize the params and files strings back to empty strings.
  2250. [InitParamsAndFiles]
  2251. SET params = ""
  2252. SET files = ""
  2253.  
  2254.  
  2255. ; Take the contents of newParam and add it to the param string.
  2256. [AddParameter]
  2257. IF params <> ""
  2258.  SET params = params,"|"
  2259. ENDIF
  2260. SET params = params,newParam
  2261.  
  2262.  
  2263. ; Take the contents of newFile and add it to the file string.
  2264. [AddFile]
  2265. IF files <> ""
  2266.  SET files = files,"|"
  2267. ENDIF
  2268. SET files = files,newFile
  2269.  
  2270.  
  2271. ; Animation applet
  2272. [Animate]
  2273. GOSUB InitParamsAndFiles
  2274. SET className = "Animate"
  2275. SET classParam = "animate"
  2276. SET image = ""
  2277. SET imageStrip = "0"
  2278. SET speed = "250"
  2279.  
  2280. GOSUB AskForBackgroundSettings
  2281.  
  2282. BACKSTOP
  2283. PAGE
  2284. WIZPIC wizpics\javawiz.gif
  2285. TYPE ANIMATIONFRAMES
  2286. NAME image
  2287. DEFAULT
  2288. DESCRIPTION Select the files to use in the animation sequence.  You can select multiple files at one time (with each press of the Browse button).  Make them appear in the list in the order in which they are to be displayed by the applet.  You can use the `Move up' and `Move down' buttons to change the order.\n\nThe file type for the pictures must be either GIF or JPG.
  2289. PROMPT &Animation files:
  2290. SETTYPE image = normal
  2291.  
  2292. BACKSTOP
  2293. PAGE
  2294. WIZPIC wizpics\javawiz.gif
  2295. TYPE EDIT
  2296. NAME speed
  2297. DEFAULT speed
  2298. DESCRIPTION Pictures are rapidly displayed, one after another, to simulate animation.  You can set the time between pictures. This value is set in `milliseconds', or one thousandth of a second.  Enter the delay you would like between pictures in the animation.\n\nFor example, 1000 means a new picture appears every second, 500 means pictures change every half second, and so on.
  2299. PROMPT &Time between pictures (in 1/1000s of a second):
  2300.  
  2301. GOSUB AskForBorder
  2302.  
  2303. SET temp = " Animation applet"
  2304. BACKSTOP
  2305. PAGE
  2306. WIZPIC wizpics\javawiz.gif
  2307. TYPE DESCRIPTION
  2308. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the delay)",Unsure2,PrsOK
  2309. FINISH
  2310.  
  2311. SET newFile = animateCanvas
  2312. GOSUB AddFile
  2313. SET newFile = appletParam
  2314. GOSUB AddFile
  2315.  
  2316. GOSUB SetBackgroundParams
  2317.  
  2318. ; construct frame list
  2319. SET frameCount = countitems( image )
  2320. SET count = 0
  2321. SET newParam = "animateImageList0="
  2322. GOSUB MakeFrameItems
  2323. SET newParam = newParam,"=Picture files to display in animation"
  2324. GOSUB AddParameter
  2325.  
  2326.  
  2327. ; get zeroeth frame file
  2328. SET frame0 = itemof( image 0 )
  2329.  
  2330. SET height = heightof( frame0 )
  2331. SET width = widthof( frame0 )
  2332.  
  2333. ; Add border size to applet's size
  2334. GOSUB AddbrdSizeToApplet
  2335.  
  2336. SET newParam = classParam,"Speed0=",speed,ItrvlTx
  2337. GOSUB AddParameter
  2338.  
  2339. GOSUB SetCode
  2340.  
  2341. ; Animate
  2342. BUILDAPPLET
  2343. CODE         code
  2344. CODEBASE     codeBase
  2345. NAME         name
  2346. FILES     files
  2347. HEIGHT        height
  2348. WIDTH        width
  2349. PARAMS    params
  2350. IMAGEALIAS    frame0
  2351.  
  2352.  
  2353.  
  2354. ; Bitmap Button
  2355. [BitmapButton]
  2356. GOSUB InitParamsAndFiles
  2357. SET className = "BitmapButton"
  2358. SET classParam = "bitmapButton"
  2359. SET image = ""
  2360.  
  2361. GOSUB AskForBackgroundSettings
  2362.  
  2363. BACKSTOP
  2364. PAGE
  2365. WIZPIC wizpics\javawiz.gif
  2366. TYPE GIFFILE
  2367. NAME image
  2368. DESCRIPTION Select a picture file containing the images to be used in this button. The picture file must contain two button images side by side, the first is displayed when the mouse is not over the button, and the second when it is.  Note that this file must be either a GIF file or a JPG file.
  2369. PROMPT &Image:
  2370. SETTYPE image = normal
  2371.  
  2372. BACKSTOP
  2373. PAGE
  2374. WIZPIC wizpics\javawiz.gif
  2375. TYPE EDIT
  2376. NAME imageWidth
  2377. DESCRIPTION Enter the width in pixels of each image in the image file. This would typically be one half of the overall width of the picture.
  2378. PROMPT &Width:
  2379.  
  2380. BACKSTOP
  2381. PAGE
  2382. WIZPIC wizpics\javawiz.gif
  2383. TYPE URLLIST
  2384. NAME url
  2385. DESCRIPTION The push-button will transfer the surfer to a different Web page when they button is activated.  You must specify the address of the page.  Be sure to include the `http://' prefix for browser pages.\n\nEnter the URL address that the browser will jump to when the surfer clicks on the push-button.
  2386. PROMPT &URL:
  2387.  
  2388. GOSUB AskForBorder
  2389.  
  2390. BACKSTOP
  2391. PAGE
  2392. WIZPIC wizpics\wizmagic.gif
  2393. TYPE DESCRIPTION
  2394. DESCRIPTION You have answered all the questions needed to set up the Push Button Link applet.\n\nIf you are unsure about any of your answers, you can press the Previous button, repeatedly if needed, to go back through your answers to review them.\n\nYou can change any of these values (such as the URL to jump to when the button is pressed) later if you change your mind.  Or you can simply delete this applet and add a different one.\n\nPress the Finish button to complete the questions for adding the Push-Button Link Java applet. Then, press the OK button to add the applet to your topic page.
  2395. FINISH
  2396.  
  2397. SET newFile = image,"@",classesDir,filenameof(image)
  2398. GOSUB AddFile
  2399. SET newParam = classParam,"Image0=",filenameof(image),"=Picture containing two button images"
  2400. GOSUB AddParameter
  2401. SET newParam = classParam,"Url0=",url,"=Web address to transfer when button activated"
  2402. GOSUB AddParameter
  2403. SET newParam = classParam,"ImageWidth0=",imageWidth,"=Width of one button"
  2404. GOSUB AddParameter
  2405. SET width = imageWidth
  2406. SET height = heightof( image )
  2407.  
  2408. GOSUB AddbrdSizeToApplet
  2409.  
  2410. SET newFile = bitmapButtonCanvas
  2411. GOSUB AddFile
  2412. SET newFile = appletParam
  2413. GOSUB AddFile
  2414.  
  2415. GOSUB SetBackgroundParams
  2416.  
  2417. GOSUB SetCode
  2418.  
  2419. ; BitmapButton
  2420. BUILDAPPLET
  2421. CODE         code
  2422. CODEBASE     codeBase
  2423. NAME         name
  2424. FILES        files
  2425. HEIGHT        height
  2426. WIDTH        width
  2427. PARAMS    params
  2428. IMAGEALIAS     image
  2429.  
  2430.  
  2431. ; Banner applet
  2432. [Banner]
  2433. GOSUB InitParamsAndFiles
  2434. SET className = "Banner"
  2435. SET classParam = "banner"
  2436. SET image = ""
  2437. SET imageStrip = "0"
  2438.  
  2439. GOSUB AskForBackgroundSettings
  2440.  
  2441. BACKSTOP
  2442. PAGE
  2443. WIZPIC wizpics\javawiz.gif
  2444. TYPE ANIMATIONFRAMES
  2445. NAME image
  2446. DESCRIPTION Select the files to use in the banner display.  You can select multiple files at one time (with each press of the Browse button).  Make them appear in the list in the order in which they are to be displayed by the applet.  You can use the `Move up' and `Move down' buttons to change the order.\n\nThe file type for the pictures must be either GIF or JPG.
  2447. PROMPT &Banner files:
  2448. SETTYPE image = normal
  2449.  
  2450. BACKSTOP
  2451. PAGE
  2452. WIZPIC wizpics\javawiz.gif
  2453. TYPE URLLIST
  2454. NAME urlList
  2455. DESCRIPTION Enter the URLs (Web addresses) to associate with the picture(s) in the banner.  You can type in the URL addresses or you can choose them from your external link registry.  Make them appear in the list in the order that corresponds to the banner images you added on the preceding screen.  You can use the `Move up' and `Move down' buttons to change the order.\n\nThe file type for the pictures must be either GIF or JPG.  You can press the Previous button to review the pictures on the preceding screen.
  2456. PROMPT &URL list for banner images:
  2457.  
  2458. BACKSTOP
  2459. PAGE
  2460. WIZPIC wizpics\javawiz.gif
  2461. TYPE EDIT
  2462. NAME interval
  2463. DESCRIPTION Enter the time in milliseconds that each image in the banner will remain visible.  For example, 1000 means a banner will remain visible for a second, 2000 means for two seconds, and so on.
  2464. DEFAULT 2000
  2465. PROMPT &Display time for images (in 1/1000 of a second):
  2466.  
  2467. SET movementInterval = 150
  2468. SET movementIncrement = 25
  2469.  
  2470. GOSUB AskForBorder
  2471.  
  2472. BACKSTOP
  2473. PAGE
  2474. WIZPIC wizpics\javawiz.gif
  2475. TYPE DESCRIPTION
  2476. DESCRIPTION You have answered all the questions needed to set up the Banner applet.\n\nIf you are unsure about any of your answers, you can press the Previous button, repeatedly if needed, to go back through your answers to review them.\n\nYou can change any of these values (such as the URL to jump to) later if you change your mind.  Or you can simply delete this applet and add a different one.\n\nPress the Finish button to complete the Push-Button Link Java applet. Then, press the OK button to add the applet to your topic page.
  2477. FINISH
  2478.  
  2479. ; get zeroeth image file
  2480. SET image0 = itemof( image 0 )
  2481. SET count = 0
  2482. SET imageCount = countitems( image )
  2483. SET newParam = classParam,"ImageList0="
  2484. GOSUB MakeImageItems
  2485. SET newParam = newParam,"=Picture file names displayed in the banner"
  2486. GOSUB AddParameter
  2487.  
  2488. SET width = widthof( image0 )
  2489. SET height = heightof( image0 )
  2490. IF width > 150
  2491.   SET movementIncrement = 50
  2492. ENDIF
  2493. IF width < 60
  2494.   SET movementIncrement = 12
  2495. ENDIF
  2496.  
  2497. SET newParam = classParam,"UrlList0=",urllist,"=List of link URL addresses"
  2498. GOSUB AddParameter
  2499. SET newParam = classParam,"Interval0=",interval,"=Time each picture displays"
  2500. GOSUB AddParameter
  2501. SET newParam = classParam,"MovementInterval0=",movementInterval,ItrvlTx
  2502. GOSUB AddParameter
  2503. SET newParam = classParam,"MovementIncrement0=",movementIncrement,IncrTxt
  2504. GOSUB AddParameter
  2505.  
  2506. GOSUB AddbrdSizeToApplet
  2507.  
  2508. SET newFile = bannerCanvas
  2509. GOSUB AddFile
  2510. SET newFile = appletParam
  2511. GOSUB AddFile
  2512.  
  2513. GOSUB SetBackgroundParams
  2514. GOSUB SetCode
  2515.  
  2516. ; Banner
  2517. BUILDAPPLET
  2518. CODE         code
  2519. CODEBASE     codeBase
  2520. NAME         name
  2521. FILES     files
  2522. HEIGHT        height
  2523. WIDTH        width
  2524. PARAMS        params
  2525. IMAGEALIAS     image0
  2526.  
  2527.  
  2528.  
  2529. ; BLINK applet
  2530. [Blink]
  2531. GOSUB InitParamsAndFiles
  2532. SET className = "Blink"
  2533. SET classParam = "blink"
  2534. SET image = ""
  2535.  
  2536. GOSUB AskForBackgroundSettings
  2537.  
  2538. BACKSTOP
  2539. PAGE
  2540. WIZPIC wizpics\javawiz.gif
  2541. TYPE RADIOBUTTONS
  2542. DEFAULT Text
  2543. NAME blinkType
  2544. DESCRIPTION Do you want this applet to display blinking text or a blinking picture?  If you choose to blink a picture, you must already have the picture available to display and it must be stored in the GIF or JPG file format.\n\nYou can create the pictures with some other program (even the Windows Paintbrush!), and you can use the Webwizz Image Converter tool, if needed, to change the pictures you create to the GIF or JPG file format.
  2545. ARGUMENT "&Blink text"@Text
  2546. ARGUMENT "Blink a Pi&cture"@Image
  2547.  
  2548. IF blinkType = "Image"
  2549.   BACKSTOP
  2550.   PAGE
  2551.   WIZPIC wizpics\javawiz.gif
  2552.   TYPE GIFFILE
  2553.   NAME image
  2554.   DESCRIPTION Select a picture file to blink. This file must be either a GIF file or a JPG file.
  2555.   PROMPT Picture &file:
  2556.   SETTYPE image = normal
  2557. ELSE
  2558.   BACKSTOP
  2559.   PAGE
  2560.   WIZPIC wizpics\javawiz.gif
  2561.   TYPE EDIT
  2562.   NAME text
  2563.   DEFAULT Blinking Text!
  2564.   DESCRIPTION Enter the text that you would like to blink with this applet.  It can be a word or a phrase.\n\nThe width of the applet is set automatically by the applet can accomodate about 15-20 characters of text.  If you want to use more, be sure to adjust the width after the applet wizard is finished.
  2565.   PROMPT &Text to blink:
  2566.  
  2567.   SET font = "TimesRoman,18,1,0"
  2568.   BACKSTOP
  2569.   PAGE
  2570.   WIZPIC wizpics\javawiz.gif
  2571.   TYPE JAVAFONT
  2572.   NAME font
  2573.   DEFAULT TimesRoman,18,1,0
  2574.   DESCRIPTION You can pick the font and size to be used in displaying your blinking text.  Remember as you pick the font that many surfers will not have all of the same fonts as you.\n\nSelect a font for the text.
  2575.  
  2576.   SET color = "0,64,128"
  2577.   BACKSTOP
  2578.   PAGE
  2579.   WIZPIC wizpics\javawiz.gif
  2580.   TYPE COLOR
  2581.   NAME color
  2582.   DEFAULT 0,64,128
  2583.   DESCRIPTION Pick a color for the blinking text.  Make sure the color you choose provides enough contrast with the background color you have chosen\n\nYou can press the `Choose' button to select a color from a palette display.  You can also enter an RGB value which defines the color to be used by setting the mix of Red, Green, and Blue. The square below shows the color you have chosen.
  2584. ENDIF
  2585.  
  2586. BACKSTOP
  2587. PAGE
  2588. WIZPIC wizpics\javawiz.gif
  2589. TYPE EDIT
  2590. NAME ontime
  2591. DEFAULT 2000
  2592. DESCRIPTION As the blinking occurs, the picture or text will be visible and then blink away from view.  You can set the amount of time for the image to remain visible.\n\nEnter a time in milliseconds (1/1000s of a second) that the blinking text or image should stay visible. (For example, 1000 means one second, and 500 means half a second.)
  2593. PROMPT &Visible time (ms):
  2594.  
  2595. ;Ask for time to keep image/text invisible
  2596. BACKSTOP
  2597. PAGE
  2598. WIZPIC wizpics\javawiz.gif
  2599. TYPE EDIT
  2600. NAME offtime
  2601. DEFAULT 500
  2602. DESCRIPTION You can also control how long the text or picture remains invisible as it blinks.\n\nEnter a time in milliseconds that the blinking text or image should stay invisible. (For example, 1000 means one second, and 500 means half a second.)
  2603. PROMPT &Invisible time (ms):
  2604.  
  2605. GOSUB AskForBorder
  2606.  
  2607. BACKSTOP
  2608. PAGE
  2609. WIZPIC wizpics\wizmagic.gif
  2610. TYPE DESCRIPTION
  2611. DESCRIPTION You have answered all the questions needed to set up the Blink applet.\n\nIf you are unsure about any of your answers, you can press the Previous button, repeatedly if needed, to go back through your answers to review them.\n\nYou can change any of these values (such as the text or picture to display) later if you change your mind.  Or you can simply delete this applet and add a different one.\n\nPress the Finish button to complete the Blink Java applet. Then, press the OK button to add the applet to your topic page.
  2612. FINISH
  2613.  
  2614. SET newParam = classParam,"OnTime0=",ontime,"=Time image is visible"
  2615. GOSUB AddParameter
  2616. SET newParam = classParam,"OffTime0=",offtime,"=Time image is invisible"
  2617. GOSUB AddParameter
  2618.  
  2619. IF blinkType = "Image"
  2620.   SET newParam = classParam,"Image0=",filenameof( image )
  2621.   GOSUB AddParameter
  2622.   SET height = heightof( image )
  2623.   SET width = widthof( image )
  2624.   SET newFile = image,"@",classesDir,filenameof( image )
  2625.   GOSUB AddFile
  2626. ELSE
  2627.   SET newParam = classParam,"Text0=",text,"=The text string to display"
  2628.   GOSUB AddParameter
  2629.   SET newParam = classParam,"Color0=",color,"=RGB color value for text"
  2630.   GOSUB AddParameter
  2631.   SET newParam = classParam,"Font0=",font,"=Font name, size, and style"
  2632.   GOSUB AddParameter
  2633.   SET height = 42
  2634.   SET width = 200
  2635. ENDIF
  2636.  
  2637. GOSUB AddbrdSizeToApplet
  2638.  
  2639. SET newFile = blinkCanvas
  2640. GOSUB AddFile
  2641. SET newFile = appletParam
  2642. GOSUB AddFile
  2643.  
  2644. GOSUB SetBackgroundParams
  2645. GOSUB SetCode
  2646.  
  2647. ; Blink
  2648. BUILDAPPLET
  2649. CODE         code
  2650. NAME         name
  2651. CODEBASE    codeBase
  2652. PARAMS    params
  2653. FILES        files
  2654. WIDTH        width
  2655. HEIGHT    height
  2656. IMAGEALIAS  "classes\blinker.gif"
  2657.  
  2658.  
  2659.  
  2660. ; Calendar applet
  2661. [Calendar]
  2662. GOSUB InitParamsAndFiles
  2663. SET className = "Calendar"
  2664. SET classParam = "calendar"
  2665. SET width = 200
  2666. SET height = 150
  2667.  
  2668. GOSUB AskForBackgroundSettings
  2669.  
  2670. BACKSTOP
  2671. PAGE
  2672. WIZPIC wizpics\javawiz.gif
  2673. TYPE COLOR
  2674. NAME headerColor
  2675. DESCRIPTION Select the color to use for the header of the calendar. The header is the top part of the calendar where it displays the month, the year, and the buttons to display different months.  Be sure the color provides enough contrast with the background you have chosen.\n\nYou can press the `Choose' button to select a color from a palette display.  You can also enter an RGB value which defines the color to be used by setting the mix of Red, Green, and Blue. The square below shows the color you have chosen.
  2676. DEFAULT 0,64,64
  2677.  
  2678. BACKSTOP
  2679. PAGE
  2680. WIZPIC wizpics\wizchoz3.gif
  2681. TYPE COLOR
  2682. NAME datesColor
  2683. DESCRIPTION Select the color to use for the dates in the calendar.  Be sure the color provides enough contrast with the background you have chosen.\n\nYou can press the `Choose' button to select a color from a palette display.  You can also enter an RGB value which defines the color to be used by setting the mix of Red, Green, and Blue. The square below shows the color you have chosen.
  2684. DEFAULT 51,51,152
  2685.  
  2686. BACKSTOP
  2687. PAGE
  2688. WIZPIC wizpics\javawiz.gif
  2689. TYPE RADIOBUTTONS
  2690. NAME showDateLines
  2691. DESCRIPTION You can display lines around the dates in the calendar.  Do you wish to display these lines?
  2692. ARGUMENT "&Yes"@1
  2693. ARGUMENT "N&o"@0
  2694.  
  2695. BACKSTOP
  2696. PAGE
  2697. WIZPIC wizpics\javawiz.gif
  2698. TYPE EDIT
  2699. NAME width
  2700. DESCRIPTION_RE YouDec,"wide the calendar will be on the screen.\n\n",EntWid
  2701. PROMPT &Width:
  2702.  
  2703. BACKSTOP
  2704. PAGE
  2705. WIZPIC wizpics\javawiz.gif
  2706. TYPE EDIT
  2707. NAME height
  2708. DESCRIPTION_RE YouDec,HwTall,the calendar display will be on the screen.\n\n",EntHght
  2709. PROMPT &Height:
  2710.  
  2711. GOSUB AskForBorder
  2712.  
  2713. SET temp = " Calendar applet"
  2714. BACKSTOP
  2715. PAGE
  2716. WIZPIC wizpics\wizmagic.gif
  2717. TYPE DESCRIPTION
  2718. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the color of the lettering)",Unsure2,PrsOK
  2719. FINISH
  2720.  
  2721. SET newParam = classParam,"HeaderColor0=",headerColor
  2722. GOSUB AddParameter
  2723. SET newParam = classParam,"DatesColor0=",datesColor
  2724. GOSUB AddParameter
  2725. SET newParam = classParam,"ShowDateLines0=",showDateLines
  2726. GOSUB AddParameter
  2727.  
  2728. GOSUB AddbrdSizeToApplet
  2729.  
  2730. SET newFile = calendarCanvas
  2731. GOSUB AddFile
  2732. SET newFile = appletParam
  2733. GOSUB AddFile
  2734.  
  2735. GOSUB SetBackgroundParams
  2736. GOSUB SetCode
  2737.  
  2738. ;    Calendar
  2739. BUILDAPPLET
  2740. CODE         code
  2741. CODEBASE     codeBase
  2742. NAME        name
  2743. FILES        files
  2744. WIDTH        width
  2745. HEIGHT    height
  2746. PARAMS    params
  2747. IMAGEALIAS  "classes\calendar.gif"
  2748.  
  2749.  
  2750.  
  2751. ; Horizontal Rule applet
  2752. [HR]
  2753. GOSUB InitParamsAndFiles
  2754. SET className = "HR"
  2755. SET classParam = "hr"
  2756. SET size = 3
  2757. SET shade = YY
  2758. SET ruleColor = "255,0,0"
  2759. SET speed = 50
  2760. SET increment = 8
  2761. SET width = 400
  2762.  
  2763. GOSUB AskForBackgroundSettings
  2764.  
  2765. BACKSTOP
  2766. PAGE
  2767. WIZPIC wizpics\wizchoz3.gif
  2768. TYPE RADIOBUTTONS
  2769. NAME ruleType
  2770. DESCRIPTION Do you wish to display an ordinary horizontal rule (a line) or do you wish to have a picture displayed and tiled to form the horizontal rule?
  2771. ARGUMENT "N&ormal"@Normal
  2772. ARGUMENT "&Image"@Image
  2773.  
  2774. IF ruleType = "Normal"
  2775.   SET height = 12
  2776.   BACKSTOP
  2777.   PAGE
  2778.   WIZPIC wizpics\javawiz.gif
  2779.   TYPE EDIT
  2780.   DESCRIPTION_RE YouDec,HwTall,"This is the line which will be drawn within the applet.\n\nEnter the height of the horizontal rule in pixels."
  2781.   NAME size
  2782.  
  2783.   BACKSTOP
  2784.   PAGE
  2785.   WIZPIC wizpics\javawiz.gif
  2786.   TYPE RADIOBUTTONS
  2787.   NAME shade
  2788.   DESCRIPTION You can add a shadowing effect to your custom horizontal ruler. The shadow gives the ruler a 3 dimensional look.\n\nDo you wish to display the horizontal rule with a 3D effect?
  2789.   ARGUMENT "&Yes"@Yes
  2790.   ARGUMENT "N&o"@No
  2791.  
  2792.   IF shade = NN
  2793.     BACKSTOP
  2794.     PAGE
  2795.     WIZPIC wizpics\wizchoz3.gif
  2796.     TYPE COLOR
  2797.     NAME ruleColor
  2798.     DESCRIPTION You can determine the color used to draw the ruler line itself.  You can press the `Choose' button to select a color from a palette display.  You can also enter an RGB value which defines the color to be used by setting the mix of Red, Green, and Blue. The square below shows the color you have chosen.\n\nEnter the color for the horizontal rule.
  2799.   ENDIF
  2800. ELSE
  2801.     BACKSTOP
  2802.     PAGE
  2803.     WIZPIC wizpics\javawiz.gif
  2804.     TYPE GIFFILE
  2805.     DESCRIPTION You can display a customized line instead of an ordinary straight line.  Webwizz includes several images in its clip-art collection that would work nicely for this purpose.  Browse to the `lines' directory in the clip art section or choose your own image.  You can use something other than a line, such as a circle.\n\nSelect a picture to use for the horizontal rule.  It must be GIF or JPG.
  2806.     NAME image
  2807.     SETTYPE image = normal
  2808. ENDIF
  2809.  
  2810. BACKSTOP
  2811. PAGE
  2812. WIZPIC wizpics\javawiz.gif
  2813. TYPE RADIOBUTTONS
  2814. NAME doAnimation
  2815. DESCRIPTION This applet lets you have a picture move back and forth across the ruler display to add a little more pizzazz!\n\nDo you wish to display an animated image moving across the horizontal rule?
  2816. ARGUMENT "&Yes"@Yes
  2817. ARGUMENT "N&o"@No
  2818.  
  2819. IF doAnimation = YY
  2820.   BACKSTOP
  2821.   PAGE
  2822.   WIZPIC wizpics\javawiz.gif
  2823.   TYPE GIFFILE
  2824.   DESCRIPTION Pick a picture to move back and forth across the face of the ruler.  Be careful not to select a picture which is too tall or wide.\n\nSelect the file to move across the ruler.  It must be in GIF or JPG format.
  2825.   NAME displayImage
  2826.   SETTYPE displayImage = normal
  2827.  
  2828.   BACKSTOP
  2829.   PAGE
  2830.   WIZPIC wizpics\javawiz.gif
  2831.   TYPE EDIT
  2832.   DESCRIPTION You can control the speed at which the picture moves across the ruler. THe image is redisplayed at regular intervals to make it appear to move. The interval is set in milliseconds (thousandths of a second). The smaller the interval, the faster the image moves.\n\nEnter the time in milliseconds between movements of the image.
  2833.   NAME speed
  2834.  
  2835.   BACKSTOP
  2836.   PAGE
  2837.   WIZPIC wizpics\javawiz.gif
  2838.   TYPE EDIT
  2839.   DESCRIPTION You can also control how far the image moves at each interval between displays.  For smoother, but slower movement, use a smaller value.  Use a larger value to make the image move faster across the line, but a value that is too large may make the motion appear jerky.\n\nEnter the number of pixels to move the image for each movement.
  2840.   NAME increment
  2841. ENDIF
  2842.  
  2843. BACKSTOP
  2844. PAGE
  2845. WIZPIC wizpics\javawiz.gif
  2846. NAME width
  2847. TYPE EDIT
  2848. DESCRIPTION_RE "You can set the maximum width for the horizontal rule display. This value is set in pixels.\n\n",EntWid
  2849. PROMPT &Width:
  2850.  
  2851. IF ruleType <> "Normal"
  2852.   SET pic_dimension = heightof(image)
  2853.   SET pic_dimension = add (pic_dimension 4)
  2854.   IF pic_dimension > 32
  2855.   SET height = pic_dimension
  2856.   ELSE
  2857.   SET height = 32
  2858.   ENDIF
  2859. ENDIF
  2860.  
  2861. BACKSTOP
  2862. PAGE
  2863. WIZPIC wizpics\javawiz.gif
  2864. NAME height
  2865. TYPE EDIT
  2866. DESCRIPTION_RE YouDec,HwTall,"If you have used a picture for the horizontal rule, the height of the picture has been used as the default size given below.  If you use a smaller size, only part of the picture will display.\n\n,"EntHght
  2867. PROMPT &Height:
  2868.  
  2869. GOSUB AskForBorder
  2870.  
  2871. SET temp = " Horizontal Rule applet"
  2872. BACKSTOP
  2873. PAGE
  2874. WIZPIC wizpics\wizmagic.gif
  2875. TYPE DESCRIPTION
  2876. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the width or height of the rule)",Unsure2,PrsOK
  2877. FINISH
  2878.  
  2879. IF ruleType = "Normal"
  2880.   SET newParam = classParam,"Size0=",size,"=Height of the rule itself"
  2881.   GOSUB AddParameter
  2882.   IF shade = NN
  2883.    SET newParam = classParam,"NoShade0=","1","=1 means disable 3-D effect"
  2884.    GOSUB AddParameter
  2885.    SET newParam = classParam,"Color0=",ruleColor,"=Color for the rule itself"
  2886.    GOSUB AddParameter
  2887.   ENDIF
  2888. ELSE
  2889.   SET newParam = classParam,"ImageRule0=",filenameof( image ),"=File name of the rule picture"
  2890.   GOSUB AddParameter
  2891.   SET newFile = image,"@",classesDir,filenameof( image )
  2892.   GOSUB AddFile
  2893. ENDIF
  2894.  
  2895. IF doAnimation = YY
  2896.   SET newParam = classParam,"Image0=",filenameof( displayImage ),"=File name of animated picture"
  2897.   GOSUB AddParameter
  2898.   SET newFile = displayImage,"@",classesDir,filenameof( displayImage )
  2899.   GOSUB AddFile
  2900.   SET newParam = classParam,"Speed0=",speed,ItrvlTx
  2901.   GOSUB AddParameter
  2902.   SET newParam = classParam,"Increment0=",increment,IncrTxt
  2903.   GOSUB AddParameter
  2904. ENDIF
  2905.  
  2906. GOSUB AddbrdSizeToApplet
  2907.  
  2908. SET newFile = hrCanvas
  2909. GOSUB AddFile
  2910. SET newFile = appletParam
  2911. GOSUB AddFile
  2912.  
  2913. GOSUB SetBackgroundParams
  2914.  
  2915. GOSUB SetCode
  2916.  
  2917. ;HR
  2918. BUILDAPPLET
  2919. CODE         code
  2920. CODEBASE     codeBase
  2921. NAME        name
  2922. FILES        files
  2923. WIDTH        width
  2924. HEIGHT    height
  2925. PARAMS    params
  2926. IMAGEALIAS  "classes\hrule1.gif"
  2927.  
  2928.  
  2929.  
  2930. ; Digital clock
  2931. [DClock]
  2932. GOSUB InitParamsAndFiles
  2933. SET className = "DigitalClock"
  2934. SET classParam = "digitalClock"
  2935.  
  2936. GOSUB AskForBackgroundSettings
  2937.  
  2938. BACKSTOP
  2939. PAGE
  2940. WIZPIC wizpics\javawiz.gif
  2941. TYPE CHECKBOXES
  2942. DESCRIPTION The digital clock can show seconds ticking off, in addition to the regular time.  You can choose to show military time (the hour runs from `0' to `23') or regular time (the hour runs from `0' to `12' and AM or PM is shown).\n\nSet the options you prefer.
  2943. ARGUMENT "Show &seconds ticking"@showSeconds"@1,0@0
  2944. ARGUMENT "Display &military time"@militaryTime"@1,0@0
  2945.  
  2946. ;clock digit color
  2947. BACKSTOP
  2948. PAGE
  2949. WIZPIC wizpics\javawiz.gif
  2950. TYPE COLOR
  2951. NAME clockColor
  2952. DESCRIPTION You can pick the color for the clock digits that are displayed on the digital clock.  Choose a color for the clock digits.\n\nYou can press the `Choose' button to select a color from a palette display.  You can also enter an RGB value which defines the color to be used by setting the mix of Red, Green, and Blue. The square below shows the color you have chosen.
  2953. DEFAULT 51,51,152
  2954.  
  2955. GOSUB AskForBorder
  2956.  
  2957. SET temp = " Digital Clock applet"
  2958. BACKSTOP
  2959. PAGE
  2960. WIZPIC wizpics\wizmagic.gif
  2961. TYPE DESCRIPTION
  2962. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the color of the clock digits)",Unsure2,PrsOK
  2963. FINISH
  2964.  
  2965. ;   Set width according to options
  2966. IF showSeconds = 1
  2967.   SET dclockWidth = 220
  2968. ELSE
  2969.   SET dclockWidth = 160
  2970. ENDIF
  2971.  
  2972. SET newParam = classParam,"ShowSeconds0=",showSeconds
  2973. GOSUB AddParameter
  2974. SET newParam = classParam,"MilitaryTime0=",militaryTime
  2975. GOSUB AddParameter
  2976. SET newParam = classParam,"Color0=",clockColor
  2977. GOSUB AddParameter
  2978.  
  2979. SET height = 40
  2980. SET width = dclockWidth
  2981.  
  2982. GOSUB AddbrdSizeToApplet
  2983.  
  2984. SET newFile = digitalClockCanvas
  2985. GOSUB AddFile
  2986. SET newFile = appletParam
  2987. GOSUB AddFile
  2988.  
  2989. GOSUB SetBackgroundParams
  2990. GOSUB SetCode
  2991.  
  2992. ; DigitalClock
  2993. BUILDAPPLET
  2994. CODE        code
  2995. CODEBASE     codeBase
  2996. NAME         name
  2997. FILES        files
  2998. PARAMS    params
  2999. HEIGHT    height
  3000. WIDTH        width
  3001. IMAGEALIAS  "classes\dclock.gif"
  3002.  
  3003.  
  3004.  
  3005. ; Flasher
  3006. [Flasher]
  3007. GOSUB InitParamsAndFiles
  3008. SET className = "Flasher"
  3009. SET classParam = "flasher"
  3010. SET speed = 125
  3011. SET image = ""
  3012.  
  3013. GOSUB AskForBackgroundSettings
  3014.  
  3015. BACKSTOP
  3016. PAGE
  3017. WIZPIC wizpics\javawiz.gif
  3018. TYPE GIFFILE
  3019. NAME image
  3020. PROMPT &Image file:
  3021. DESCRIPTION The flasher applet moves a picture onto the display a few pixels at a time.  You can control the number of pixels moved and the time between each movement.\n\nSelect a picture file to flash in the applet. This file must be either a GIF file or a JPG file.
  3022. SETTYPE image = normal
  3023.  
  3024. BACKSTOP
  3025. PAGE
  3026. WIZPIC wizpics\javawiz.gif
  3027. TYPE EDIT
  3028. NAME speed
  3029. PROMPT &Speed:
  3030. DESCRIPTION The flasher applet moves the image onto the display a few pixels at a time, with a specific interval between each movement.  You can control both the number of pixels moved and the time in between each movement in the flashing process.\n\nThe time interval is measured in milliseconds, which are one thousandth of a second.  Enter the time in milliseconds between animations.  (For example, 1000 means one second, 500 means a half second.)
  3031.  
  3032. SET height = heightof( image )
  3033. SET width = widthof( image )
  3034. IF width > height
  3035.     SET pic_dimension = width
  3036. ELSE
  3037.     SET pic_dimension = height
  3038. ENDIF
  3039. IF pic_dimension > 400
  3040.   SET increment = 64
  3041. ELSE
  3042.   IF pic_dimension > 200
  3043.   SET increment = 32
  3044.   ELSE
  3045.   SET increment = 16
  3046.   ENDIF
  3047. ENDIF
  3048.  
  3049. BACKSTOP
  3050. PAGE
  3051. WIZPIC wizpics\javawiz.gif
  3052. TYPE EDIT
  3053. NAME increment
  3054. PROMPT &Increment:
  3055. DESCRIPTION The flasher applet moves the image onto the display a few pixels at a time, with a specific interval between each movement.  You have already set the time interval between movements (on the preceding screen) and now you must set the number of pixels to move with each movement in the flashing process.\n\nEnter the number of pixels to move on each animation.
  3056.  
  3057. GOSUB AskForBorder
  3058.  
  3059. SET temp = " Flasher applet"
  3060. BACKSTOP
  3061. PAGE
  3062. WIZPIC wizpics\wizmagic.gif
  3063. TYPE DESCRIPTION
  3064. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the picture)",Unsure2,PrsOK
  3065. FINISH
  3066.  
  3067. IF image <> ""
  3068.   SET newFile = image,"@",classesDir,filenameof( image )
  3069.   GOSUB AddFile
  3070. ENDIF
  3071.  
  3072. SET newParam = classParam,"Image0=",filenameof( image )
  3073. GOSUB AddParameter
  3074. SET newParam = classParam,"Speed0=",speed,ItrvlTx
  3075. GOSUB AddParameter
  3076. SET newParam = classParam,"Increment0=",increment,IncrTxt
  3077. GOSUB AddParameter
  3078.  
  3079. GOSUB AddbrdSizeToApplet
  3080.  
  3081. SET newFile = flasherCanvas
  3082. GOSUB AddFile
  3083. SET newFile = appletParam
  3084. GOSUB AddFile
  3085.  
  3086. GOSUB SetBackgroundParams
  3087. GOSUB SetCode
  3088.  
  3089. ;Flasher
  3090. BUILDAPPLET
  3091. CODE         code
  3092. CODEBASE     codeBase
  3093. NAME         name
  3094. FILES        files
  3095. PARAMS    params
  3096. HEIGHT    height
  3097. WIDTH        width
  3098. IMAGEALIAS    image
  3099.  
  3100.  
  3101. ;Dancing lights ( KR )
  3102. [KR]
  3103. GOSUB InitParamsAndFiles
  3104. SET className = "KR"
  3105. SET classParam = "kr"
  3106. SET speed = 100
  3107.  
  3108. BACKSTOP
  3109. PAGE
  3110. WIZPIC wizpics\wizchoz3.gif
  3111. NAME upDown
  3112. TYPE RADIOBUTTONS
  3113. DESCRIPTION You can have the dancing lights display across or down the screen.  Choose how you wish the dancing lights displayed. That is, specify whether you want them to move horizontally or vertically.
  3114. ARGUMENT "Display Lights &Horizontally"@0
  3115. ARGUMENT "Display Lights &Vertically"@1
  3116.  
  3117. BACKSTOP
  3118. PAGE
  3119. WIZPIC wizpics\wizchoz3.gif
  3120. NAME showCircles
  3121. TYPE RADIOBUTTONS
  3122. DESCRIPTION The dancing lights applet displays shapes to simulate the lights. They can be drawn either round or square.  Square lights look better in smaller sizes.  You will choose the size on a subsequent screen.\n\nChoose a shape for the lights.
  3123. ARGUMENT "Draw Lights with &Circles"@1
  3124. ARGUMENT "Draw Lights with &Squares"@0
  3125.  
  3126. BACKSTOP
  3127. PAGE
  3128. WIZPIC wizpics\javawiz.gif
  3129. NAME speed
  3130. DEFAULT speed
  3131. TYPE EDIT
  3132. DESCRIPTION The dancing lights applet moves the light display, changing lights from on to off and back again.  You can control the time interval between each change of the lights. The interval is measured in milliseconds (thousandths of a second).  For example, 1000 miliseconds means one second, and 100 means 1/10th second.\n\nEnter the time in milliseconds between movements of the lights.
  3133. PROMPT &Light change rate:
  3134.  
  3135. BACKSTOP
  3136. PAGE
  3137. WIZPIC wizpics\javawiz.gif
  3138. NAME numSegments
  3139. TYPE EDIT
  3140. DEFAULT 12
  3141. DESCRIPTION You can determine the overall size of the flashing lights display, by determining the number of lights contained in the light panel.  Enter the number of lights to display.
  3142. PROMPT Number of &lights:
  3143.  
  3144. BACKSTOP
  3145. PAGE
  3146. WIZPIC wizpics\javawiz.gif
  3147. NAME color
  3148. TYPE SIMPLECOLOR
  3149. DEFAULT 255,0,0
  3150. DESCRIPTION Select a color for the lights.  Click on one of the colored squares below to choose the color you desire.
  3151.  
  3152. BACKSTOP
  3153. PAGE
  3154. WIZPIC wizpics\javawiz.gif
  3155. NAME blockSpacing
  3156. TYPE EDIT
  3157. DEFAULT 1
  3158. DESCRIPTION You can have a space between each of the ligths in the display, and you control the size of the space.\n\nEnter the number of blank pixels to leave between each light.
  3159. PROMPT Pi&xels:
  3160.  
  3161. ; Set appropriate defaults for width & height
  3162. IF upDown = 1
  3163.   SET width = 12
  3164.   SET height = 256
  3165. ELSE
  3166.    SET width = "256"
  3167.    SET height = "12"
  3168. ENDIF
  3169.  
  3170. BACKSTOP
  3171. PAGE
  3172. WIZPIC wizpics\javawiz.gif
  3173. NAME width
  3174. TYPE EDIT
  3175. DESCRIPTION_RE YouDec,"how wide the light bar will be on the display. The wider the bar, the more horizontal space it takes up.\n\n",EntWid
  3176. PROMPT &Width:
  3177.  
  3178. BACKSTOP
  3179. PAGE
  3180. WIZPIC wizpics\javawiz.gif
  3181. NAME height
  3182. TYPE EDIT
  3183. DESCRIPTION_RE YouDec,HwTall,"The higher the bar, the more vertical space it takes up.\n\n",EntHght
  3184. PROMPT &Height:
  3185.  
  3186. GOSUB AskForBorder
  3187.  
  3188. SET temp = " Dancing Lights applet"
  3189. BACKSTOP
  3190. PAGE
  3191. WIZPIC wizpics\wizmagic.gif
  3192. TYPE DESCRIPTION
  3193. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the number of color of the lights)",Unsure2,PrsOK
  3194. FINISH
  3195.  
  3196. SET newParam = classParam,"ShowCircles0=",showCircles,"=1 means lights are circles.  0 means squares."
  3197. GOSUB AddParameter
  3198. SET newParam = classParam,"Speed0=",speed,ItrvlTx
  3199. GOSUB AddParameter
  3200. SET newParam = classParam,"NumSegments0=",numSegments,"=Number of lights in the bar"
  3201. GOSUB AddParameter
  3202. SET newParam = classParam,"Color0=",color,"=Color of the lights"
  3203. GOSUB AddParameter
  3204. SET newParam = classParam,"UpDown0=",upDown,"=1 means light bar is vertical. 0 means horizontal."
  3205. GOSUB AddParameter
  3206. SET newParam = classParam,"BlockSpacing0=",blockSpacing,"=Space between each of the lights"
  3207. GOSUB AddParameter
  3208. IF upDown = "1"
  3209.   SET newParam = classParam,"BlockSize0=",width,"=Width of the light bar"
  3210.   GOSUB AddParameter
  3211. ELSE
  3212.   SET newParam = classParam,"BlockSize0=",height,"=Height of the light bar"
  3213.   GOSUB AddParameter
  3214. ENDIF
  3215.  
  3216. GOSUB AddbrdSizeToApplet
  3217.  
  3218. SET newFile = krCanvas
  3219. GOSUB AddFile
  3220. SET newFile = appletParam
  3221. GOSUB AddFile
  3222.  
  3223. GOSUB SetCode
  3224.  
  3225. ;    KR
  3226. BUILDAPPLET
  3227. CODE         code
  3228. NAME         name
  3229. CODEBASE    codeBase
  3230. PARAMS    params
  3231. WIDTH        width
  3232. HEIGHT    height
  3233. FILES        files
  3234. IMAGEALIAS  "classes\dancing.gif"
  3235.  
  3236.  
  3237. ;    Marquee applet
  3238. [Marquee]
  3239. GOSUB InitParamsAndFiles
  3240. SET className = "Marquee"
  3241. SET classParam = "marquee"
  3242. SET message = "This is my scrolling message"
  3243. SET font = "TimesRoman,16,1,0"
  3244. SET fontColor = "0,255,255"
  3245. SET image = ""
  3246. SET speed = 125
  3247. SET increment = 12
  3248. SET direction = "West"
  3249.  
  3250. GOSUB AskForBackgroundSettings
  3251.  
  3252. BACKSTOP
  3253. PAGE
  3254. WIZPIC wizpics\javawiz.gif
  3255. TYPE RADIOBUTTONS
  3256. DEFAULT Text
  3257. NAME textOrImage
  3258. DESCRIPTION The Marquee Applet lets you scroll a message continuously. The message can be composed from text characters or the message can be contained in a picture.  If you are going to scroll a picture, you must have previously created it and saved it in the GIF or JPG file format.\n\nIndicate whether you wish to scroll text or a picture.
  3259. ARGUMENT "Scroll &text"@Text
  3260. ARGUMENT "Scroll a pi&cture"@Image
  3261.  
  3262. IF textOrImage = "Text"
  3263.   BACKSTOP
  3264.   PAGE
  3265.   WIZPIC wizpics\javawiz.gif
  3266.   TYPE EDIT
  3267.   DESCRIPTION Now you must enter the text you want displayed in the Marquee Applet.  Don't make the text too long, since it will be hard for the reader to remember what has been read.  It is also helpful to be able to see the whole message at once.\n\nEnter the text to be displayed in the marquee.
  3268.   NAME message
  3269.   PROMPT Scrolling Message &Text:
  3270.  
  3271.   BACKSTOP
  3272.   PAGE
  3273.   WIZPIC wizpics\javawiz.gif
  3274.   TYPE JAVAFONT
  3275.   DESCRIPTION You can pick the font and size to be used in displaying your message.  Remember as you pick the font that many surfers will not have all of the same fonts as you.\n\nSelect a font for the text.
  3276.   NAME font
  3277.  
  3278.   BACKSTOP
  3279.   PAGE
  3280.   WIZPIC wizpics\javawiz.gif
  3281.   TYPE COLOR
  3282.   DESCRIPTION You can set the color used to display the text of your message.  Remember to pick a color that provides good contrast with your background color.\n\nYou can press the `Choose' button to select a color from a palette display.  You can also enter an RGB value which defines the color to be used by setting the mix of Red, Green, and Blue. The square below shows the color you have chosen.
  3283.   NAME fontColor
  3284. ELSE
  3285.   BACKSTOP
  3286.   PAGE
  3287.   WIZPIC wizpics\javawiz.gif
  3288.   TYPE GIFFILE
  3289.   DESCRIPTION You have chosen to scroll a picture instead of text in the Marquee.  You must specify the picture file to be scrolled. The picture file must already exist and be either a GIF file or a JPG file.\n\nProvide the file name or press the Browse button to locate the picture file you wish to use in the marquee.
  3290.   NAME image
  3291.   SETTYPE image = normal
  3292.  
  3293.   SET height = heightof( image )
  3294.   SET width = widthof( image )
  3295.   SET increment = 3
  3296.   SET speed = 25
  3297. ENDIF
  3298.  
  3299. BACKSTOP
  3300. PAGE
  3301. WIZPIC wizpics\javawiz.gif
  3302. TYPE EDIT
  3303. DESCRIPTION As the Marquee Applet runs, the text or image is moved at certain intervals to simulate the scrolling.  You can control the interval between movements and thus set the scrolling speed.  Longer intervals result in slower scrolling and shorter intervals cause faster scrolling. This time interval is specified in milliseconds, which are one thousandth of a second.  For example, 1000 milliseconds is equal to one second; 500 means a half second.\n\nEnter the time in milliseconds between movements of the text or picture in the marquee.
  3304. NAME speed
  3305. DEFAULT speed
  3306. PROMPT &Scrolling Speed (in milliseconds):
  3307.  
  3308. BACKSTOP
  3309. PAGE
  3310. WIZPIC wizpics\javawiz.gif
  3311. TYPE EDIT
  3312. DESCRIPTION As the Marquee Applet runs, the text or image is moved a specific distance at each time interval to simulate the scrolling.  You previously set the time interval and now you set the distance that the message or picture will be moved at each interval.  Larger distances result in a more `jumpy' scrolling and shorter distances cause smooth scrolling. This distance is specified in pixels.\n\nEnter the time in milliseconds between movements of the text or picture in the marquee.\n\nEnter the number of pixels to move the text or picture at each time interval.
  3313. NAME increment
  3314. DEFAULT increment
  3315. PROMPT &Jump:
  3316.  
  3317. BACKSTOP
  3318. PAGE
  3319. WIZPIC wizpics\javawiz.gif
  3320. TYPE RADIOBUTTONS
  3321. NAME direction
  3322. DESCRIPTION The text or picture in your Marquee can scroll in any direction.  For example, scrolling to the left would mean the text (or picture) begins on the right and moves to the left.\n\nPick the direction in which to scroll.
  3323. ARGUMENT "&Left"@West
  3324. ARGUMENT "&Right"@East
  3325. ARGUMENT "&Up"@North
  3326. ARGUMENT "&Down"@South
  3327.  
  3328. GOSUB AskForBorder
  3329.  
  3330. SET temp = "Marquee applet"
  3331. BACKSTOP
  3332. PAGE
  3333. WIZPIC wizpics\wizmagic.gif
  3334. TYPE DESCRIPTION
  3335. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the color of the text)",Unsure2,PrsOK
  3336. FINISH
  3337.  
  3338. SET newParam = classParam,"Speed0=",speed,ItrvlTx
  3339. GOSUB AddParameter
  3340. SET newParam = classParam,"Increment0=",increment,IncrTxt
  3341. GOSUB AddParameter
  3342. SET newParam = classParam,"Direction0=",direction,"=Scrolling direction"
  3343. GOSUB AddParameter
  3344. SET newParam = classParam,"BkColor0=",bkColor,"=Background color"
  3345. GOSUB AddParameter
  3346. IF textOrImage = "Text"
  3347.   SET height = 42
  3348.   SET width = 300
  3349.  
  3350.   SET newParam = classParam,"Message0=",message,"=The message text that scrolls"
  3351.   GOSUB AddParameter
  3352.   SET newParam = classParam,"Font0=",font,"=The font, type size, and style"
  3353.   GOSUB AddParameter
  3354.   SET newParam = classParam,"FontColor0=",fontColor,"=The color of the scrolling text"
  3355.   GOSUB AddParameter
  3356. ELSE
  3357.   SET newParam = classParam,"Image0=",filenameof( image ),"=Name of picture file being scrolled"
  3358.   GOSUB AddParameter
  3359.   SET newFile = image,"@",classesDir,filenameof( image )
  3360.   GOSUB AddFile
  3361. ENDIF
  3362.  
  3363. GOSUB AddbrdSizeToApplet
  3364.  
  3365. SET newFile = marqueeCanvas
  3366. GOSUB AddFile
  3367. SET newFile = appletParam
  3368. GOSUB AddFile
  3369.  
  3370. GOSUB SetBackgroundParams
  3371. GOSUB SetCode
  3372.  
  3373. ;Marquee
  3374. BUILDAPPLET
  3375. CODE         code
  3376. CODEBASE     codeBase
  3377. NAME         name
  3378. FILES        files
  3379. PARAMS    params
  3380. WIDTH        width
  3381. HEIGHT    height
  3382. IMAGEALIAS  "classes\marquee.gif"
  3383.  
  3384.  
  3385.  
  3386. [ScrollText]
  3387. GOSUB InitParamsAndFiles
  3388. SET className = "ScrollText"
  3389. SET classParam = "scrollText"
  3390. SET increment = 12
  3391. SET speed = 125
  3392. SET font = "TimesRoman,14,1,1"
  3393. SET width = 200
  3394. SET height = 200
  3395.  
  3396. GOSUB AskForBackgroundSettings
  3397.  
  3398. BACKSTOP
  3399. PAGE
  3400. TYPE EDIT
  3401. WIZPIC wizpics\javawiz.gif
  3402. DESCRIPTION The applet simulates movement by displaying it at regular intervals at different points within its container window.  You can control how much the of the movement occurs at each interval. The larger this value, the more jerky the movement.  So for neat, smooth scrolling, use a small value.\n\nEnter the number of pixels to move the text on each movement.
  3403. NAME increment
  3404.  
  3405. BACKSTOP
  3406. PAGE
  3407. TYPE EDIT
  3408. WIZPIC wizpics\javawiz.gif
  3409. DESCRIPTION You can control the speed at which the text moves through the window. THe text is redisplayed at regular intervals to make it appear to move. The interval is set in milliseconds (thousandths of a second). The smaller the interval, the faster the text moves.\n\nEnter the time in milliseconds between movements of the text.
  3410. NAME speed
  3411.  
  3412. BACKSTOP
  3413. PAGE
  3414. WIZPIC wizpics\javawiz.gif
  3415. TYPE JAVAFONT
  3416. NAME font
  3417. DESCRIPTION You can pick the font and size to be used in displaying your text.  Remember as you pick the font that many surfers will not have all of the same fonts as you.\n\nSelect a font for the text.
  3418.  
  3419. BACKSTOP
  3420. PAGE
  3421. WIZPIC wizpics\javawiz.gif
  3422. TYPE EDIT
  3423. NAME width
  3424. DESCRIPTION_RE "You can control the size of the area used to display the scrolling text.  ",EntWid
  3425. PROMPT &Width:
  3426.  
  3427. BACKSTOP
  3428. PAGE
  3429. WIZPIC wizpics\javawiz.gif
  3430. TYPE EDIT
  3431. NAME height
  3432. DESCRIPTION_RE "You can control the size of the area used to display the scrolling text.",EntHght
  3433. PROMPT &Height:
  3434.  
  3435. BACKSTOP
  3436. PAGE
  3437. WIZPIC wizpics\javawiz.gif
  3438. TYPE EDIT
  3439. NAME theFile
  3440. DESCRIPTION You must load your text file onto the host server and here specify the URL for the file on your server.\n\nEnter the URL to the text file to be displayed.
  3441. Prompt &URL for the text file on your server:
  3442.  
  3443. GOSUB AskForBorder
  3444.  
  3445. SET temp = " Scroll Text applet"
  3446. BACKSTOP
  3447. PAGE
  3448. WIZPIC wizpics\wizmagic.gif
  3449. TYPE DESCRIPTION
  3450. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the width or height)",Unsure2,PrsOK
  3451. FINISH
  3452.  
  3453. SET newParam = classParam,"Increment0=",increment,IncrTxt
  3454. GOSUB AddParameter
  3455. SET newParam = classParam,"Speed0=",speed,ItrvlTx
  3456. GOSUB AddParameter
  3457. SET newParam = classParam,"Font0=",font
  3458. GOSUB AddParameter
  3459. SET newParam = classParam,"File0=",theFile
  3460. GOSUB AddParameter
  3461.  
  3462. GOSUB AddbrdSizeToApplet
  3463.  
  3464. SET newFile = scrollTextCanvas
  3465. GOSUB AddFile
  3466. SET newFile = appletParam
  3467. GOSUB AddFile
  3468.  
  3469. GOSUB SetBackgroundParams
  3470. GOSUB SetCode
  3471.  
  3472. ;    ScrollText
  3473. BUILDAPPLET
  3474. CODE         code
  3475. CODEBASE     codeBase
  3476. NAME        name
  3477. FILES        files
  3478. WIDTH        width
  3479. HEIGHT    height
  3480. PARAMS    params
  3481. IMAGEALIAS  "classes\scroll.gif"
  3482.  
  3483.  
  3484.  
  3485. ;Sound Player applet
  3486. [SoundPlayer]
  3487. GOSUB InitParamsAndFiles
  3488. SET className = "SP"
  3489. SET classParam = "sp"
  3490. SET sound = ""
  3491.  
  3492. BACKSTOP
  3493. PAGE
  3494. WIZPIC wizpics\javawiz.gif
  3495. TYPE FILE
  3496. DESCRIPTION Specify the sound file you want played. The file must be in the AU file format.  Java only supports AU files with a sampling rate of 8000 Hz.\n\nYou can press the browse button to locate the file.  If you type the file name yourself, be sure to enter the full path to a sound file to play.
  3497. NAME sound
  3498. PROMPT &AU file name:
  3499. SETTYPE sound = normal
  3500.  
  3501. BACKSTOP
  3502. PAGE
  3503. WIZPIC wizpics\javawiz.gif
  3504. TYPE RADIOBUTTONS
  3505. DESCRIPTION The sound player applet permits you to optionally display buttons to stop and resume the playing of the sound file. To display "Play" and "Stop" buttons, check the second button below.
  3506. NAME showButtons
  3507. ARGUMENT "D&o not display Play and Stop buttons"@0
  3508. ARGUMENT "&Display Play and Stop buttons"@1
  3509.  
  3510. IF showButtons = 1
  3511.   BACKSTOP
  3512.   PAGE
  3513.   WIZPIC wizpics\javawiz.gif
  3514.   TYPE EDIT
  3515.   DESCRIPTION You can provide your own labelling for the Play and Stop buttons to customize the look of your applet.\n\nEnter the label for the "Play" button.
  3516.   DEFAULT Play
  3517.   NAME playLabel
  3518.   PROMPT &Label for Play Button:
  3519.  
  3520.   BACKSTOP
  3521.   PAGE
  3522.   WIZPIC wizpics\javawiz.gif
  3523.   TYPE EDIT
  3524.   DESCRIPTION You can provide your own labelling for the Play and Stop buttons to customize the look of your applet.\n\nEnter the label for the "Stop" button.
  3525.   DEFAULT Stop
  3526.   NAME stopLabel
  3527.   PROMPT &Label for Stop Button:
  3528.  
  3529.   GOSUB AskForBackgroundSettings
  3530.  
  3531.   SET width = 200
  3532.   SET height = 52
  3533. ELSE
  3534.   SET width = 0
  3535.   SET height = 0
  3536. ENDIF
  3537.  
  3538. BACKSTOP
  3539. PAGE
  3540. WIZPIC wizpics\javawiz.gif
  3541. DESCRIPTION The applet gives you additional control to start the sound file playing automatically and to have it repeat after it plays through.  Be sure to have the file play automatically if you have not provided for the appearance of Play and Stop buttons on the applet. The repeat feature is useful for music, but probably not desirable for voice.\n\nChoose from the options below.
  3542. TYPE CHECKBOXES
  3543. ARGUMENT "&Automatically start playing"@autoPlay@1,0@1
  3544. ARGUMENT "&Replay the sound file continuously"@loopSound@1,0@1
  3545.  
  3546. GOSUB AskForBorder
  3547.  
  3548. SET temp = " Sound Player applet"
  3549. BACKSTOP
  3550. PAGE
  3551. WIZPIC wizpics\wizmagic.gif
  3552. TYPE DESCRIPTION
  3553. DESCRIPTION_RE YouComp,temp,Unsure,"(such as the sound file to play)",Unsure2,PrsOK
  3554. FINISH
  3555.  
  3556. SET newParam = classParam,"Sound0=",filenameof( sound ),"=Name of sound file"
  3557. GOSUB AddParameter
  3558. SET newFile = sound,"@",classesDir,filenameof( sound )
  3559. GOSUB AddFile
  3560. SET newParam = classParam,"AutoPlay0=",autoPlay,"=Automatic play start: 1 means yes, 0 no"
  3561. GOSUB AddParameter
  3562. SET newParam = classParam,"LoopSound0=",loopSound,"=Continuous play: 1 means yes, 0 no"
  3563. GOSUB AddParameter
  3564.  
  3565. IF showButtons = 1
  3566.   SET newParam = classParam,"ShowButtons0=",showButtons,"=Show play/stop buttons"
  3567.   GOSUB AddParameter
  3568.   SET newParam = classParam,"PlayLabel0=",playLabel,"=Text for play button"
  3569.   GOSUB AddParameter
  3570.   SET newParam = classParam,"StopLabel0=",stopLabel,"=Text for stop button"
  3571.   GOSUB AddParameter
  3572.   GOSUB SetBackgroundParams
  3573. ENDIF
  3574.  
  3575. GOSUB AddbrdSizeToApplet
  3576.  
  3577. SET newFile = spPanel
  3578. GOSUB AddFile
  3579. SET newFile = appletParam
  3580. GOSUB AddFile
  3581.  
  3582. GOSUB SetCode
  3583.  
  3584. ;SP
  3585. BUILDAPPLET
  3586. CODE      code
  3587. CODEBASE  codeBase
  3588. NAME      name
  3589. FILES     files
  3590. WIDTH     width
  3591. HEIGHT    height
  3592. PARAMS    params
  3593. IMAGEALIAS "classes\snd_play.gif"
  3594.  
  3595.  
  3596.  
  3597. ; Calculator applet
  3598. [Calculator]
  3599. GOSUB InitParamsAndFiles
  3600. SET className = "Calculator"
  3601. SET classParam = "calculator"
  3602. SET width=200
  3603. SET height=200
  3604.  
  3605. GOSUB AskForBackgroundSettings
  3606. GOSUB AskForBorder
  3607.  
  3608. BACKSTOP
  3609. PAGE
  3610. WIZPIC wizpics\javawiz.gif
  3611. TYPE EDIT
  3612. NAME width
  3613. DESCRIPTION_RE YouDec,"wide the calculator display is going to be. This control sets the width of the applet, in pixels.  You can adjust this value later by changing the `width' item on the first tab of the Applet dialog display.\n\n",EntWid
  3614. PROMPT &Width:
  3615. DEFAULT width
  3616.  
  3617. BACKSTOP
  3618. PAGE
  3619. WIZPIC wizpics\javawiz.gif
  3620. TYPE EDIT
  3621. NAME height
  3622. DESCRIPTION_RE YouDec,"tall the calculator display is going to be. This control sets the height of the applet, in pixels.  You can adjust this value later by changing the `height' item on the first tab of the Applet dialog display.\n\n",EntHght
  3623. PROMPT &Height:
  3624. DEFAULT height
  3625.  
  3626. SET temp = " Calculator applet"
  3627. BACKSTOP
  3628. PAGE
  3629. WIZPIC wizpics\wizmagic.gif
  3630. TYPE DESCRIPTION
  3631. DESCRIPTION_RE YouComp,temp,Unsure,Unsure2,PrsOK
  3632. FINISH
  3633.  
  3634. SET newFile = calculatorCanvas
  3635. GOSUB AddFile
  3636. SET newFile = appletParam
  3637. GOSUB AddFile
  3638.  
  3639. GOSUB SetBackgroundParams
  3640.  
  3641. ; Add border size to applet's size
  3642. GOSUB AddbrdSizeToApplet
  3643. GOSUB SetCode
  3644.  
  3645. ;Calculator
  3646. BUILDAPPLET
  3647. CODE            code
  3648. CODEBASE        codeBase
  3649. NAME            name
  3650. FILES           files
  3651. HEIGHT          height
  3652. WIDTH           width
  3653. PARAMS          params
  3654. IMAGEALIAS      "classes\calc_app.gif"
  3655.  
  3656.  
  3657. ; Fade applet
  3658. [Fade]
  3659. GOSUB InitParamsAndFiles
  3660. SET className = "Fade"
  3661. SET classParam = "fade"
  3662. SET height = 150
  3663. SET width = 150
  3664.  
  3665. GOSUB AskForBackgroundSettings
  3666. GOSUB AskForBorder
  3667.  
  3668. BACKSTOP
  3669. PAGE
  3670. WIZPIC wizpics\javawiz.gif
  3671. TYPE GIFFILE
  3672. DESCRIPTION Select a picture to fade in and out.  The picture must be either a GIF file or a JPG file.
  3673. NAME image
  3674. SETTYPE image = normal
  3675.  
  3676. BACKSTOP
  3677. PAGE
  3678. WIZPIC wizpics\javawiz.gif
  3679. TYPE EDIT
  3680. NAME fadeInTime
  3681. DESCRIPTION Enter the time (in milliseconds) that it will take for the image to fade in.
  3682. PROMPT &Fade in time:
  3683. DEFAULT 3000
  3684.  
  3685. BACKSTOP
  3686. PAGE
  3687. WIZPIC wizpics\javawiz.gif
  3688. TYPE EDIT
  3689. NAME fadeInSteps
  3690. DESCRIPTION_RE YouDec,"how many different phases of the fade in process there will be.  For each phase (or step), a little more of the image will be displayed.\n\nEnter the number of steps in the fading in of the image."
  3691. PROMPT &Fade out time:
  3692. DEFAULT 15
  3693.  
  3694. BACKSTOP
  3695. PAGE
  3696. WIZPIC wizpics\javawiz.gif
  3697. TYPE EDIT
  3698. NAME fadeOutTime
  3699. DESCRIPTION Enter the time (in milliseconds) that it will take for the image to fade out.
  3700. PROMPT &Fade out time:
  3701. DEFAULT 3000
  3702.  
  3703. BACKSTOP
  3704. PAGE
  3705. WIZPIC wizpics\javawiz.gif
  3706. TYPE EDIT
  3707. NAME fadeOutSteps
  3708. DESCRIPTION_RE YouDec,"how many different phases of the fade out process there will be.  For each phase (or step), a little more of the image will disappear.\n\nEnter the number of steps in the fading out of the image."
  3709. PROMPT &Fade out time:
  3710. DEFAULT 15
  3711.  
  3712. BACKSTOP
  3713. PAGE
  3714. WIZPIC wizpics\javawiz.gif
  3715. TYPE EDIT
  3716. NAME showTime
  3717. DESCRIPTION Enter the time (in milliseconds) that the image will remain fully shown.
  3718. PROMPT &Show time:
  3719. DEFAULT 4000
  3720.  
  3721. BACKSTOP
  3722. PAGE
  3723. WIZPIC wizpics\javawiz.gif
  3724. TYPE EDIT
  3725. NAME hideTime
  3726. DESCRIPTION Enter the time (in milliseconds) that the image willl remain fully hidden.
  3727. PROMPT &Hide time:
  3728. DEFAULT 1500
  3729.  
  3730. SET width = widthof( image )
  3731. SET height = heightof( image )
  3732.  
  3733. SET temp = " Fade applet"
  3734. BACKSTOP
  3735. PAGE
  3736. WIZPIC wizpics\wizmagic.gif
  3737. TYPE DESCRIPTION
  3738. DESCRIPTION_RE YouComp,temp,Unsure,Unsure2,PrsOK
  3739. FINISH
  3740.  
  3741. SET newFile = fadeCanvas
  3742. GOSUB AddFile
  3743. SET newFile = appletParam
  3744. GOSUB AddFile
  3745.  
  3746. SET newParam = classParam,"InTime0=",fadeInTime
  3747. GOSUB AddParameter
  3748. SET newParam = classParam,"InSteps0=",fadeInSteps
  3749. GOSUB AddParameter
  3750. SET newParam = classParam,"OutTime0=",fadeOutTime
  3751. GOSUB AddParameter
  3752. SET newParam = classParam,"OutSteps0=",fadeOutSteps
  3753. GOSUB AddParameter
  3754. IF image <> ""
  3755.   SET newParam = classParam,"Image0=",filenameof( image )
  3756.   GOSUB AddParameter
  3757.   SET newFile = image,"@",classesDir,filenameof( image )
  3758.   GOSUB AddFile
  3759. ENDIF
  3760.  
  3761. GOSUB SetBackgroundParams
  3762. GOSUB AddbrdSizeToApplet
  3763. GOSUB SetCode
  3764.  
  3765. ;Fade
  3766. BUILDAPPLET
  3767. CODE            code
  3768. CODEBASE        codeBase
  3769. NAME            name
  3770. FILES           files
  3771. HEIGHT          height
  3772. WIDTH           width
  3773. PARAMS          params
  3774. IMAGEALIAS      image
  3775.  
  3776.  
  3777.  
  3778. ; Fireworks applet
  3779. [Fireworks]
  3780. GOSUB InitParamsAndFiles
  3781. SET className = "Fireworks"
  3782. SET classParam = "fireworks"
  3783. SET width = 300
  3784. SET height = 150
  3785.  
  3786. GOSUB AskForBackgroundSettings
  3787. GOSUB AskForBorder
  3788.  
  3789. BACKSTOP
  3790. PAGE
  3791. WIZPIC wizpics\javawiz.gif
  3792. TYPE EDIT
  3793. NAME width
  3794. DESCRIPTION_RE YouDec,"wide the fireworks display is going to be. This control sets the width of the applet, in pixels.  You can adjust this value later by changing the `width' item on the first tab of the Applet dialog display.\n\n",EntWid
  3795. PROMPT &Width:
  3796. DEFAULT width
  3797.  
  3798. BACKSTOP
  3799. PAGE
  3800. WIZPIC wizpics\javawiz.gif
  3801. TYPE EDIT
  3802. NAME height
  3803. DESCRIPTION_RE YouDec,"tall the fireworks display is going to be.  This control sets the height of the applet, in pixels.  You can adjust this value later by changing the `height' item on the first tab of the Applet dialog display.\n\n",EntHght
  3804. PROMPT &Height:
  3805. DEFAULT height
  3806.  
  3807. SET temp = " Fireworks applet"
  3808. BACKSTOP
  3809. PAGE
  3810. WIZPIC wizpics\wizmagic.gif
  3811. TYPE DESCRIPTION
  3812. DESCRIPTION_RE YouComp,temp,Unsure,Unsure2,PrsOK
  3813. FINISH
  3814.  
  3815. SET newFile = fireworksCanvas
  3816. GOSUB AddFile
  3817. SET newFile = appletParam
  3818. GOSUB AddFile
  3819.  
  3820. GOSUB SetBackgroundParams
  3821. GOSUB AddbrdSizeToApplet
  3822. GOSUB SetCode
  3823.  
  3824.  
  3825. ;Fireworks
  3826. BUILDAPPLET
  3827. CODE            code
  3828. CODEBASE        codeBase
  3829. NAME            name
  3830. FILES           files
  3831. HEIGHT          height
  3832. WIDTH           width
  3833. PARAMS          params
  3834. IMAGEALIAS      "wizpics\nlstyle5.gif"
  3835.  
  3836.  
  3837. ; Network greeting applet
  3838. [Hello]
  3839. GOSUB InitParamsAndFiles
  3840. SET className = "Hello"
  3841. SET classParam = "hello"
  3842. SET width = 200
  3843. SET height = 32
  3844.  
  3845. GOSUB AskForBackgroundSettings
  3846. GOSUB AskForBorder
  3847.  
  3848. BACKSTOP
  3849. PAGE
  3850. WIZPIC wizpics\javawiz.gif
  3851. TYPE EDIT
  3852. NAME width
  3853. DESCRIPTION_RE YouDec,"wide the network greeting display is going to be. This control sets the width of the applet, in pixels.  You can adjust this value later by changing the `width' item on the first tab of the Applet dialog display.\n\n",EntWid
  3854. PROMPT &Width:
  3855. DEFAULT width
  3856.  
  3857. BACKSTOP
  3858. PAGE
  3859. WIZPIC wizpics\javawiz.gif
  3860. TYPE EDIT
  3861. NAME height
  3862. DESCRIPTION_RE YouDec,"tall the network greeting display is going to be. This control sets the height of the applet, in pixels.  You can adjust this value later by changing the `height' item on the first tab of the Applet dialog display.\n\n",EntHght
  3863. PROMPT &Height:
  3864. DEFAULT height
  3865.  
  3866. SET temp = " Network Greeting applet"
  3867. BACKSTOP
  3868. PAGE
  3869. WIZPIC wizpics\wizmagic.gif
  3870. TYPE DESCRIPTION
  3871. DESCRIPTION_RE YouComp,temp,Unsure,Unsure2,PrsOK
  3872. FINISH
  3873.  
  3874. SET newFile = helloCanvas
  3875. GOSUB AddFile
  3876. SET newFile = appletParam
  3877. GOSUB AddFile
  3878.  
  3879. GOSUB SetBackgroundParams
  3880. GOSUB AddbrdSizeToApplet
  3881. GOSUB SetCode
  3882.  
  3883. ;Hello
  3884. BUILDAPPLET
  3885. CODE            code
  3886. CODEBASE        codeBase
  3887. NAME            name
  3888. FILES           files
  3889. HEIGHT          height
  3890. WIDTH           width
  3891. PARAMS          params
  3892. IMAGEALIAS      "classes\hello.gif"
  3893.  
  3894.  
  3895.  
  3896.  
  3897. ; Pulsing shapes applet
  3898. [PulsingShapes]
  3899. GOSUB InitParamsAndFiles
  3900. SET className = "PulsingShapes"
  3901. SET classParam = "pulsingShapes"
  3902. SET width = 150
  3903. SET height = 150
  3904.  
  3905. GOSUB AskForBackgroundSettings
  3906. GOSUB AskForBorder
  3907.  
  3908. BACKSTOP
  3909. PAGE
  3910. WIZPIC wizpics\javawiz.gif
  3911. TYPE EDIT
  3912. NAME minWidth
  3913. DESCRIPTION Enter the minimum width in pixels for each shape.
  3914. Prompt &Minimum width:
  3915. DEFAULT 10
  3916.  
  3917. BACKSTOP
  3918. PAGE
  3919. WIZPIC wizpics\javawiz.gif
  3920. TYPE EDIT
  3921. NAME maxWidth
  3922. DESCRIPTION Enter the maximum width in pixels for each shape.
  3923. Prompt &Maximum width:
  3924. DEFAULT 50
  3925.  
  3926. BACKSTOP
  3927. PAGE
  3928. WIZPIC wizpics\javawiz.gif
  3929. TYPE EDIT
  3930. NAME minHeight
  3931. DESCRIPTION Enter the minimum height in pixels for each shape.
  3932. Prompt &Minimum height:
  3933. DEFAULT 10
  3934.  
  3935. BACKSTOP
  3936. PAGE
  3937. WIZPIC wizpics\javawiz.gif
  3938. TYPE EDIT
  3939. NAME maxHeight
  3940. DESCRIPTION Enter the maximum Height in pixels for each shape.
  3941. Prompt &Maximum height:
  3942. DEFAULT 50
  3943.  
  3944. BACKSTOP
  3945. PAGE
  3946. WIZPIC wizpics\javawiz.gif
  3947. TYPE EDIT
  3948. NAME minShapes
  3949. DESCRIPTION Enter the minimum number of shapes to display.
  3950. Prompt &Minimum shapes:
  3951. DEFAULT 1
  3952.  
  3953. BACKSTOP
  3954. PAGE
  3955. WIZPIC wizpics\javawiz.gif
  3956. TYPE EDIT
  3957. NAME maxShapes
  3958. DESCRIPTION Enter the maximum number of shapes to display
  3959. Prompt &Maximum shapes:
  3960. DEFAULT 50
  3961.  
  3962. BACKSTOP
  3963. PAGE
  3964. WIZPIC wizpics\javawiz.gif
  3965. TYPE EDIT
  3966. NAME width
  3967. DESCRIPTION_RE YouDec,"wide the display is going to be. This control sets the width of the applet, in pixels.  You can adjust this value later by changing the `width' item on the first tab of the Applet dialog display.\n\n",EntWid
  3968. PROMPT &Width:
  3969. DEFAULT width
  3970.  
  3971. BACKSTOP
  3972. PAGE
  3973. WIZPIC wizpics\javawiz.gif
  3974. TYPE EDIT
  3975. NAME height
  3976. DESCRIPTION_RE YouDec,"tall the display is going to be. This control sets the height of the applet, in pixels.  You can adjust this value later by changing the `height' item on the first tab of the Applet dialog display.\n\n",EntHght
  3977. PROMPT &Height:
  3978. DEFAULT height
  3979.  
  3980. SET temp = " Pulsing Shapes applet"
  3981. BACKSTOP
  3982. PAGE
  3983. WIZPIC wizpics\wizmagic.gif
  3984. TYPE DESCRIPTION
  3985. DESCRIPTION_RE YouComp,temp,Unsure,Unsure2,PrsOK
  3986. FINISH
  3987.  
  3988. SET newFile = pulsingShapesCanvas
  3989. GOSUB AddFile
  3990. SET newFile = appletParam
  3991. GOSUB AddFile
  3992.  
  3993. SET newParam = classParam,"MinWidth0=",minWidth
  3994. GOSUB AddParameter
  3995. SET newParam = classParam,"MaxWidth0=",maxWidth
  3996. GOSUB AddParameter
  3997. SET newParam = classParam,"MinHeight0=",minHeight
  3998. GOSUB AddParameter
  3999. SET newParam = classParam,"MaxHeight0=",maxHeight
  4000. GOSUB AddParameter
  4001. SET newParam = classParam,"MinShapes0=",minShapes
  4002. GOSUB AddParameter
  4003. SET newParam = classParam,"MaxShapes0=",maxShapes
  4004. GOSUB AddParameter
  4005.  
  4006. GOSUB SetBackgroundParams
  4007. GOSUB AddbrdSizeToApplet
  4008. GOSUB SetCode
  4009.  
  4010.  
  4011. ;PulsingShapes
  4012. BUILDAPPLET
  4013. CODE            code
  4014. CODEBASE        codeBase
  4015. NAME            name
  4016. FILES           files
  4017. HEIGHT          height
  4018. WIDTH           width
  4019. PARAMS          params
  4020. IMAGEALIAS      "classes\pulshape.gif"
  4021.  
  4022.  
  4023.  
  4024.  
  4025. ; Text Effects applet
  4026. [TextEffects]
  4027. GOSUB InitParamsAndFiles
  4028. SET className = "TextEffects"
  4029. SET classParam = "textEffects"
  4030. SET width = 200
  4031. SET height = 50
  4032.  
  4033. GOSUB AskForBackgroundSettings
  4034. GOSUB AskForBorder
  4035.  
  4036. BACKSTOP
  4037. PAGE
  4038. WIZPIC wizpics\javawiz.gif
  4039. TYPE EDIT
  4040. NAME interval
  4041. DESCRIPTION Enter the time in milliseconds between movements of the text.
  4042. PROMPT &Interval
  4043. DEFAULT 250
  4044.  
  4045. BACKSTOP
  4046. PAGE
  4047. WIZPIC wizpics\javawiz.gif
  4048. TYPE EDIT
  4049. NAME text
  4050. DESCRIPTION Enter the text to display with effect.  The text you enter here will be dislayed using the effects.\n\nKeep the amount of text short, limiting yourself to a word or phrase.
  4051. PROMPT &Text:
  4052. DEFAULT Message
  4053.  
  4054. BACKSTOP
  4055. PAGE  ;Ask for the font
  4056. WIZPIC wizpics\javawiz.gif
  4057. TYPE JAVAFONT
  4058. NAME font
  4059. DEFAULT TimesRoman,32,1,0
  4060. DESCRIPTION Select the font to use when displaying the text.
  4061.  
  4062. BACKSTOP
  4063. PAGE
  4064. WIZPIC wizpics\javawiz.gif
  4065. TYPE RADIOBUTTONS
  4066. NAME randomize
  4067. DESCRIPTION Do you want to display random colors for each character of the message?
  4068. ARGUMENT "&Yes"@Yes
  4069. ARGUMENT "N&o"@No
  4070.  
  4071. IF randomize = NN
  4072.   BACKSTOP
  4073.   PAGE
  4074.   TYPE COLOR
  4075.   WIZPIC wizpics\javawiz.gif
  4076.   DEFAULT 255,0,0
  4077.   DESCRIPTION Select the color to display the text in.
  4078.   NAME color
  4079. ENDIF
  4080.  
  4081. BACKSTOP
  4082. PAGE
  4083. WIZPIC wizpics\javawiz.gif
  4084. TYPE RADIOBUTTONS
  4085. NAME textEffect
  4086. DESCRIPTION Select which type of animation to perform on the text
  4087. ARGUMENT "&Jitter"@Jitter
  4088. ARGUMENT "&Fan out"@Fan
  4089. ARGUMENT "&Wave"@Wave
  4090.  
  4091. IF textEffect = "Fan"
  4092.   BACKSTOP
  4093.   PAGE
  4094.   WIZPIC wizpics\javawiz.gif
  4095.   TYPE EDIT
  4096.   NAME fanTime
  4097.   DESCRIPTION Enter the time in milliseconds that the text should remain fanned out before fanning the text again.  For example, 2000 means 2 seconds.
  4098.   PROMPT &Time in ms:
  4099.   DEFAULT 2000
  4100. ENDIF
  4101.  
  4102. BACKSTOP
  4103. PAGE
  4104. WIZPIC wizpics\javawiz.gif
  4105. TYPE EDIT
  4106. NAME width
  4107. DESCRIPTION_RE YouDec,"wide the display is going to be. This control sets the width of the applet, in pixels.  You can adjust this value later by changing the `width' item on the first tab of the Applet dialog display.\n\n",EntWid
  4108. PROMPT &Width:
  4109. DEFAULT width
  4110.  
  4111. BACKSTOP
  4112. PAGE
  4113. WIZPIC wizpics\javawiz.gif
  4114. TYPE EDIT
  4115. NAME height
  4116. DESCRIPTION_RE YouDec,"tall the display is going to be. This control sets the height of the applet, in pixels.  You can adjust this value later by changing the `height' item on the first tab of the Applet dialog display.\n\n",EntHght
  4117. PROMPT &Height:
  4118. DEFAULT height
  4119.  
  4120. SET temp = " Text Effects applet"
  4121. BACKSTOP
  4122. PAGE
  4123. WIZPIC wizpics\wizmagic.gif
  4124. TYPE DESCRIPTION
  4125. DESCRIPTION_RE YouComp,temp,Unsure,Unsure2,PrsOK
  4126. FINISH
  4127.  
  4128. SET newFile = textEffectsCanvas
  4129. GOSUB AddFile
  4130. SET newFile = appletParam
  4131. GOSUB AddFile
  4132.  
  4133. SET newParam = classParam,"Interval0=",interval
  4134. GOSUB AddParameter
  4135. SET newParam = classParam,"Text0=",text
  4136. GOSUB AddParameter
  4137. SET newParam = classParam,"Font0=",font
  4138. GOSUB AddParameter
  4139. IF randomize = YY
  4140.   SET newParam = classParam,"Randomize0=",font
  4141.   GOSUB AddParameter
  4142. ENDIF
  4143. IF textEffect = "Jitter"
  4144.   SET newParam = classParam,"Jitter0=","1"
  4145.   GOSUB AddParameter
  4146. ENDIF
  4147. IF textEffect = "Fan"
  4148.   SET newParam = classParam,"Fan0=","1"
  4149.   GOSUB AddParameter
  4150.   SET newParam = classParam,"FanTime0=",fanTime
  4151.   GOSUB AddParameter
  4152. ENDIF
  4153. IF textEffect = "Wave"
  4154.   SET newParam = classParam,"Wave0=","1"
  4155.   GOSUB AddParameter
  4156. ENDIF
  4157.  
  4158. GOSUB SetBackgroundParams
  4159. GOSUB AddbrdSizeToApplet
  4160. GOSUB SetCode
  4161.  
  4162. ;Text Effects
  4163. BUILDAPPLET
  4164. CODE            code
  4165. CODEBASE        codeBase
  4166. NAME            name
  4167. FILES           files
  4168. HEIGHT          height
  4169. WIDTH           width
  4170. PARAMS          params
  4171. IMAGEALIAS      "classes\txt_eff.gif"
  4172.  
  4173.  
  4174.  
  4175.  
  4176. ; "Text Maniac" applet
  4177. [TextManiac]
  4178. GOSUB InitParamsAndFiles
  4179. SET className = "TextManiac"
  4180. SET classParam = "textManiac"
  4181. SET width = 200
  4182. SET height = 50
  4183.  
  4184. GOSUB AskForBackgroundSettings
  4185. GOSUB AskForBorder
  4186.  
  4187. BACKSTOP
  4188. PAGE
  4189. WIZPIC wizpics\javawiz.gif
  4190. TYPE EDIT
  4191. NAME delayTime
  4192. DESCRIPTION Enter the amount of time in milliseconds between movements of the text.
  4193. PROMPT &Delay time:
  4194. DEFAULT 25
  4195.  
  4196. BACKSTOP
  4197. PAGE
  4198. WIZPIC wizpics\javawiz.gif
  4199. TYPE EDIT
  4200. NAME message
  4201. DESCRIPTION Enter the text to display in the applet.
  4202. PROMPT &Message:
  4203. DEFAULT Message
  4204.  
  4205. BACKSTOP
  4206. PAGE
  4207. WIZPIC wizpics\javawiz.gif
  4208. TYPE EDIT
  4209. NAME width
  4210. DESCRIPTION_RE YouDec,"wide the display is going to be. This control sets the width of the applet, in pixels.  You can adjust this value later by changing the `width' item on the first tab of the Applet dialog display.\n\n",EntWid
  4211. PROMPT &Width:
  4212. DEFAULT width
  4213.  
  4214. BACKSTOP
  4215. PAGE
  4216. WIZPIC wizpics\javawiz.gif
  4217. TYPE EDIT
  4218. NAME height
  4219. DESCRIPTION_RE YouDec,"tall the display is going to be. This control sets the height of the applet, in pixels.  You can adjust this value later by changing the `height' item on the first tab of the Applet dialog display.\n\n",EntHght
  4220. PROMPT &Height:
  4221. DEFAULT height
  4222.  
  4223. SET temp = " Text Maniac applet"
  4224. BACKSTOP
  4225. PAGE
  4226. WIZPIC wizpics\wizmagic.gif
  4227. TYPE DESCRIPTION
  4228. DESCRIPTION_RE YouComp,temp,Unsure,Unsure2,PrsOK
  4229. FINISH
  4230.  
  4231. SET newFile = textManiacCanvas
  4232. GOSUB AddFile
  4233. SET newFile = appletParam
  4234. GOSUB AddFile
  4235. SET newParam = classParam,"DelayTime0=",delayTime
  4236. GOSUB AddParameter
  4237. SET newParam = classParam,"Message0=",delayTime
  4238. GOSUB AddParameter
  4239.  
  4240. GOSUB SetBackgroundParams
  4241. GOSUB AddbrdSizeToApplet
  4242. GOSUB SetCode
  4243.  
  4244. ; Text Maniac
  4245. BUILDAPPLET
  4246. CODE            code
  4247. CODEBASE        codeBase
  4248. NAME            name
  4249. FILES           files
  4250. HEIGHT          height
  4251. WIDTH           width
  4252. PARAMS          params
  4253.  
  4254.  
  4255.  
  4256. ; Text Pulse applet
  4257. [TextPulse]
  4258. GOSUB InitParamsAndFiles
  4259. SET className = "TextPulse"
  4260. SET classParam = "textPulse"
  4261. SET width = 200
  4262. SET height = 50
  4263.  
  4264. GOSUB AskForBackgroundSettings
  4265. GOSUB AskForBorder
  4266.  
  4267. BACKSTOP
  4268. PAGE
  4269. WIZPIC wizpics\javawiz.gif
  4270. TYPE JAVAFONT
  4271. NAME startFont
  4272. DEFAULT TimesRoman,12,1,0
  4273. DESCRIPTION Select the font to start with when pulsing. This should be smaller than the ending text size.  It should also be of the same type and style as the end font. The only difference should be the size.
  4274.  
  4275. BACKSTOP
  4276. PAGE
  4277. WIZPIC wizpics\javawiz.gif
  4278. TYPE JAVAFONT
  4279. NAME endFont
  4280. DEFAULT TimesRoman,16,1,0
  4281. DESCRIPTION Select the font to end with when pulsing. This should be larger than the starting font.  It should also be of the same type and style as the end font. The only difference should be the size.
  4282.  
  4283. BACKSTOP
  4284. PAGE
  4285. WIZPIC wizpics\javawiz.gif
  4286. TYPE EDIT
  4287. NAME growthIncrement
  4288. DESCRIPTION Enter the number of point sizes to increase/decrease the text after each interval.
  4289. PROMPT &Growth in point size:
  4290. DEFAULT 1
  4291.  
  4292. BACKSTOP
  4293. PAGE
  4294. WIZPIC wizpics\javawiz.gif
  4295. TYPE COLOR
  4296. NAME color
  4297. DESCRIPTION Select the color to use when displaying the text.
  4298. PROMPT &Text color:
  4299. DEFAULT 255,0,0
  4300.  
  4301. BACKSTOP
  4302. PAGE
  4303. WIZPIC wizpics\javawiz.gif
  4304. TYPE EDIT
  4305. NAME message
  4306. DESCRIPTION Enter the text to display.
  4307. PROMPT &Text:
  4308. DEFAULT Message
  4309.  
  4310. BACKSTOP
  4311. PAGE
  4312. WIZPIC wizpics\javawiz.gif
  4313. TYPE EDIT
  4314. NAME interval
  4315. DESCRIPTION Enter the time in milliseconds between changes to the size of the text in the pulse.
  4316. PROMPT &Interval
  4317. DEFAULT 250
  4318.  
  4319. BACKSTOP
  4320. PAGE
  4321. WIZPIC wizpics\javawiz.gif
  4322. TYPE EDIT
  4323. NAME width
  4324. DESCRIPTION_RE YouDec,"wide the display is going to be. This control sets the width of the applet, in pixels.  You can adjust this value later by changing the `width' item on the first tab of the Applet dialog display.\n\n",EntWid
  4325. PROMPT &Width:
  4326. DEFAULT width
  4327.  
  4328. BACKSTOP
  4329. PAGE
  4330. WIZPIC wizpics\javawiz.gif
  4331. TYPE EDIT
  4332. NAME height
  4333. DESCRIPTION_RE YouDec,"tall the display is going to be. This control sets the height of the applet, in pixels.  You can adjust this value later by changing the `height' item on the first tab of the Applet dialog display.\n\n",EntHght
  4334. PROMPT &Height:
  4335. DEFAULT height
  4336.  
  4337. SET temp = " Text Pulse applet"
  4338. BACKSTOP
  4339. PAGE
  4340. WIZPIC wizpics\wizmagic.gif
  4341. TYPE DESCRIPTION
  4342. DESCRIPTION_RE YouComp,temp,Unsure,Unsure2,PrsOK
  4343. FINISH
  4344.  
  4345. SET newFile = textPulseCanvas
  4346. GOSUB AddFile
  4347. SET newFile = appletParam
  4348. GOSUB AddFile
  4349.  
  4350. SET newParam = classParam,"StartFont0=",startFont
  4351. GOSUB AddParameter
  4352. SET newParam = classParam,"EndFont0=",endFont
  4353. GOSUB AddParameter
  4354. SET newParam = classParam,"GrowthIncrement0=",growthIncrement
  4355. GOSUB AddParameter
  4356. SET newParam = classParam,"Color0=",color
  4357. GOSUB AddParameter
  4358. SET newParam = classParam,"Message0=",message
  4359. GOSUB AddParameter
  4360. SET newParam = classParam,"Interval0=",interval
  4361. GOSUB AddParameter
  4362.  
  4363. GOSUB SetBackgroundParams
  4364. GOSUB AddbrdSizeToApplet
  4365. GOSUB SetCode
  4366.  
  4367. ; Text Pulse
  4368. BUILDAPPLET
  4369. CODE            code
  4370. CODEBASE        codeBase
  4371. NAME            name
  4372. FILES           files
  4373. HEIGHT          height
  4374. WIDTH           width
  4375. PARAMS          params
  4376. IMAGEALIAS      "classes\pulstxt.gif"
  4377.  
  4378.